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INTRODUCTION 



COURSE OBJECTIVE 



Design, create, implement, and maintain job schedules and manipulate files on a 
Burroughs large system using Work Flow Language. 

COURSE GOALS 

Alter completion of this course, you will have acquired the necessary itnowiedge 
and skills to: 



• Create and execute a job stream. 

• Utilize the job summary. 

• Define job attributes which interface with job queues. 

• Process tasks asynchronously. 

• Provide control of printer backup facilities. 

• Utilize terminal related system utility programs. 



Ill 
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AUDIENCE 

This course is directed toward programmers, analysts, and senior operators with 
some programming experience who work through terminals or remote computmg 
systems. 

PREREQUISITES 

You should have the equivalent understanding of. or should have completed, 
Introduction to Large Systems and Introduction to A Series CANOE. A working 
knowledge of CANDE is necessary and programmmg experience is helpful. You wm 
be responsible for your own data entry requirements for the WFL source. 

COURSE LENGTH 

The course length is approximately 40 hours. 

COURSE MODE 

The course will be instructor-led, usually following the sequence as listed in the 
Table of Contents. This course will involve extensive practice of the skills used in 
creating and implementing Work Flow jobs. 

Classroom sessions will be held to give background information and lab sessions will 
provide hands on experience. It is expected that the learner will utilize reference 
m.aterials to supplement the elassrooui lectures. 



IV 
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GENERAL LAB INFORMATION 



1. Sign on to CANDE. 

Use a USERCODE/PASSWORD pair provided by your instructor. 

USERCODE 

PASSWORD 



XX a X^J_iO X XII r^ X X^^Xl Xl AlTxEi lO X CVjUll Cu, IX, WllX uc ^luvxucu. 

DESTNAME 

2. Your Work Flow source should be of type JOB. 

3. All files created, either through CANDE or your Work Flow 
jobs, should have a first name of your initials and a family 
name provided by your instructor unless otherwise stated. 

FAMILY 



4. Start your Work Flow jobs through CANDE using the START 
command. 



5. Sign off CANDE and MARC when finished with your lab assignment each 
day. 



SECTION 1 



TASK INITIATION AND CONTROL 
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TASK INITIATION AND CONTROL 



SECTION OBJECTIVE 

Construct task initiation and control statements. 

PURPOSE 

This section provides an introduction to the Worl< Flow Language (WFL) and 
the Work Flow process. It will also provide information on the mitiation ot 
and control of tasks while executing under WFL. 

UNIT OBJECTIVES 

• Identify the elements of the Work Flow process and related 
terms. 

• Identify and describe the five sections of a Work Flow 
job. 

• Construct simple task initiation statements. 

• Construct basic task control and communication statements. 
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TASK INITIATION AND CONTROL 

Unit 1 
Woric Flow Language and Process 

OBJECTIVE 

Identify the elements of the Work Flow process and related terms. 

PURPOSE 

In order to write effective WFL source programs, it is necessary to have some 
understanding of the Work Flow Management system, its terminology, its 
features, and its performance. 



RESOURCES 

a. Student Guide 

b. A Series WFL Reference Manual 



Section 1 
Unit 1 

Section 1 






Task 
Job Task 
Dependent Task 
Independent Task 
Synchronous Task 
Asynchronous Task 
Job 

Mix Numbers 
Job Stream 
Job Queue 



WFL Compiler 

Jobfile 

WORK FLOW MANAGEMENT SYSTEM 

CONTROLLER 

JOBDESC 

MCPHOST 

AUTOBACKUP 

Job Summary 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



LEARNING SEQUENCE 



WORK FLOW TERMINOLOGY 



A task is the execution of a program. Tasks can be divided into three types: job 
task, dependent task, and independent task. 



• 



• 



A job task is the execution of a program written in Work 
Flow Language. 

A dependent task is any task initiated by a job task or 
called by another task. 



• An independent task is any task that is initiated from a 
task and is no longer under the control of the originating 
task. 

• Tasks may be run either synchronously or asynchronously. 

- Synchronous tasks are those that execute serially. This 
means that the next task cannot start until the one 
executing finishes. 

- Asynchronous tasks are those that run concurrently in a 
multiprogramming environment. 

TASK EXAMPLES: 

An execution of a job % Job Task 

A program execution % Dependent Task 

A program compilation 

A file copy from tape or disk 

A job starting another job % Independent Task 



A job is a collection of one or more related tasks, including the ]ob task and all 
the dependent tasks initiated by tasks in the job. The system keeps track of these 
tasks by assigning them numbers. These numbers are called mix numbers. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



LEARNING SEQUENCE 



JOB EXAMPLE: 



PAYROLL JOB 

UPDATE ADDRESS PROGRAM 
EDIT TIMECARD PROGRAM 
SORT & PROCESS PROGRAM 
PRINT PROGRAMS 

CHECKS 

YTD TOTALS 




CHECKS 



UPDATE 
ADDRESS 



EDIT 
TIMECARDS 



SORT 

& 

PROCESS 



MIX NUMBERS 
JOB 1325 



TASK 1325/1334 



TASK 1325/1340 



TASK 1325/1350 



YTD 
TOTALS 



TASK 1325/1360 



TASK 1325/1361 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



LEARNING SEQUENCE 

A job stream is the order of tasks to be executed within the job, sometimes 
referred to as just the job. 

A lob queue is a place to store jobs that are to be executed. The system Provides 
the means for controlling job execution based on the attributes assigned to that job 
and attributes of the queue. Such items as priority, available system resources, 
and limits imposed by the operational staff are used in these decisions. 



WORK FLOW FEATURES 

The Work Flow Language (WFL) is a high level language in which jobs are 
described. It is designed to control, execute, and monitor the flow of tasks within 
a job stream. 

WFL is the means by which a job is described and presented to the system for 
execution The language allows the user to programmatically control the execution 
of a set of interrelated tasks. A job may decide, at run-time, whether to run a 
program, which programs to run, and in what order to run them. The P ""ted and 
punched output for all tasks within the job is retained and output as a group a. .... 
end of the job. As part of that output, the log information generated for -hat ]ob 
is output at the same time. Comprehensive billing information is accumulated to 
be used if desired. 



i 15 



WFL source statements are English-like and. with a few exceptions, are free- 
format The WFL compiler syntactically checks and compiles all control statements 
into machine code and outputs a disk file referred to as a jobfile. This jobfUe is 
then ,linked to a job queue for scheduling. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



LEARNING SEQUENCE 

WORK FLOW MANAGEMENT SYSTEM 

When a Work Flow job is started, the selected source statements are given to the 
WFL compiler. After a successful compilation, the system will attempt to link the 
job file to an appropriate queue where the job will wait for selection to be 
executed. If an appropriate queue is not available, the job viiii. be discontinueu. 
Upon selection, the system must check if enough memory is available. If not, the 
job is scheduled; otherwise, the job is loaded into memory and begins execution. 
When all of the tasks within the job have been completed, the printed or punched 
output from the tasks within the job is released to the printer backup facility. 
The output includes the Job Summary, the WFL source, the WFL Log, and the 
dependent tasks printed or punched output. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



LEARNING SEQUENCE 



WFL 

statements 

and Data 




Shaded areas represent parts of the MCP. 
Work Flow Management System Organization 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Woric Flow Language and Process 



LEARNING SEQUENCE 

WORK FLOW MANAGEMENT SYSTEM consists of several parts of the MOP 
represented by the shaded areas on the preceding page. 

• The WFL compiler generates the job by: 

- checking the syntax of the WFL source; 

- translating the job control statements to machine code; 

- storing the machine code, WFL source, any data decks used, 
and space for logging and restart information in a 

special type of file called a jobfile. 

• The CONTROLLER controls the system work load, queue level 
scheduling, and operator communications by: 

- maintaining the Jobfile Description File (JOBDESC) that contains 

* directories of jobfiles 

* queue for controller scheduling 

* links to the jobfiles 

* Job Queue Heads, number of queues, and pointers to 
the individual queues 

- choosing the queue to which the job will be linked; 

- inserting the job at the appropriate location in the queue; 

- selecting the job to execute next; 

- removing the job from the job queue; 

- passing the addresses of the diskfile header and Program Parameter 

BlOCK (tiUtl/PPai to JOBoirtiMcrv,. 

• The MCPHOST includes 

- building part of the Process Information Block (PIB); 

- calling additional routines to finish building the 
PIB, allocate memory, build the process stack, and 
place it in the ready queue to be executed; 

- indirectly placing a message in the Controller's 
queue that will cause the Controller to initiate 
AUTOBACKUP. 

• The AUTOBACKUP facility % On 3.6 the Printing Subsystem 

- formats the job summary for printing; 

- formats the WFL source statements for printing; 

- prints or punches job output; 

- removes the jobfile. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



PRACTICE EXERCISE 

A. Please complete the following statements by filling in tiie 
blank. 



1. A 



consists of a collection of related 



2. The 



stores it in a 



creates the WFL code file and 



3. As a job runs, the MOP continually stores log information for 

that job in the file maintained by 

the • 



4. (True or False) A WFL code file will remain on disk after a WFL job 
is completed. , 

5. (True or False) Tasks within a job may be run one at a time 
or at the same time. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 1: Work Flow Language and Process 



PRACTICE EXERCISE continued 

B. Identify the sections/blocks of the Work Flow Management system by selecting 
the letter that represents the program unit or procedure corresponding to that 
function. 



Function 

1. This unit syntactically checks the job 

and translates job control statements 
into machine language code. 

2. This file contains object code, WFL 
source, data decks, logging and 
restart information. 

3. This program unit is fired-up by the 
MCP at halt/load time and runs as an 
independent runner. 

4. This file is maintained by the controller 

and has entries that consist of file 
headers and links used to organize the 
jobs by class and priority. 

5. This section chooses the appropriate 

class by matching requirements of the 
job with the specifications of the 
various queues. 

6. This section chooses a job to be started 

by paying attention to the queue priorities, 
mix limits, and also assigns attributes 
not explicitly set by the job. 

7. This section is notified by the Controller 
to transfer the job entry to the proper 
task/stack structure to be run. 

8. This section is called after receiving 

notice of EOJ from the MCP and formats the 
job summary and WFL source statements for 
printing. 



Unit/Procedure 
A. MCP HOST 



B. AUTOBACKUP 



C. JOBDESC 



D. JOBFILE 



E. CONTROLLER 



F. WFL COMPILER 
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TASK INITIATION AND CONTROL 

Unit 2 

Job Structure 

OBJECTIVE 

Identify and describe the five sections of a Worl< Flow job. 

PURPOSE 

To write effective WFL jobs, it is necessary to understand how the language 
is structured. 

RESOURCES 

a. Student Guide Section 1 

Unit 2 

b. A Series WFL Reference Manual Section 3 

KEY WORDS 

BEGIN JOB 
Job Attributes 
Declarations 
Statements 
END JOB 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 2: Job Structure 



LEARNING SEQUENCE 



Work Flow Job: 



The Work Flow (WFL) job controls the execution of the dependent tasks initiated 
from it. Statements may be written in a free format structure within each of the 
sections. All statements must end with a semi-colon (;). In order to describe the 
WFL job structure, the job is divided into five sections; three of these are 
mandatory, (BEGIN JOB. STATEMENTS. END JOB) and must appear in the correct 
order. The job attributes and declarations sections are optional and allow 
additional control capabilities. 



SECTION WFL PROGRAM STATEMENTS 



BEGIN JOB SECTION BEGIN JOB MYJOB ; 



o 



JOB ATTRIBUTES QUEUE = 20 ; 

(optional) 



DECLARATIONS TASK Tl ; 
(optional) 

STATEMENTS RUN PROGA ; 

END JOB SECTION END JOB 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 2: Job Structure 



LEARNING SEQUENCE 



BEGIN JOB 



This is the first section and must begin with the reserved words BEGIN JOB and 
may have a job title, job parameters list and a job disposition. The job title is a 
file title and is defined in the WFL Manual. The job parameters are named 
identifiers and may be of the type Boolean, Integer, Real, or String. The 
■•ob disposition is usual!" used to compile the 'ob and check for syntax errors. 
(See Section 3 of the WFL Reference Manual) 



JOB ATTRIBUTES 

Task attributes are used to control the environment and behavior of a task before, 
during, and after execution of the task. These attributes, when used at the job 
level, are known as Job Attributes and are used to assign attributes to the job such 
as USERCODE, PRIORITY, QUEUE, and MAXLINES. 
(See Section 3 of the WFL Reference Manual) 



DECLARATIONS 

Declarations are Work Flow constructs that define variables by type and express 
their intended use. Each variable used in a job must be declared via a declaration 
statement before it can be used. There are seven variable types: File, Task, 
Real, String, Boolean, Integer, and Subroutine. 
(See Section 4 of the WFL Reference Manual) 



STATEMENTS 

The statements section is the working section of the job and consists of WFL 
statements. A statement is a combination of basic elements, constructs, and 
commands that can be used to initiate or control a process. A statement may also 
be used to assign values to previously declared variables. Each statement ends 
with a semicolon (;). 
(See Section 6 of the WFL Reference Manual) 



END JOB 

The reserved words END JOB designate the end of the job. It is the last section 
and is required. 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 2: Job Structure 



LEARNING SEQUENCE 



BEGIN JOB 



JOB NAME 



JOB ATTRIBUTES 



QUEUE or CLASS 

USERCODE 

DESTNAME 

FAMILY 

TASK ATTRIBUTES 

STARTTIME 



DECLARATIONS 



REAL 

INTEGER 

STRING 

BOOLEAN 

TASKS 

SUBROUTINES 

GLOBAL FILES 



STATEMENTS 



TASK INITIATION 
TASK CONTROL 
FLOW CONTROL 
COMPOUND 

SUBROUTINE CONTROL 
FILE HANDLING 
FILE MANAGEMENT 
TASK SECURITY 
COMMUNICATION 
CATALOGING 
VALUE ASSIGNMENT 



END JOB 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 2: Job Structure 



PRACTICE EXERCISE 

A. List the five sections of a Work Flow job including a brief 
description of each. 



1. 



3. 



5. 



B. Which, if any, are the optional sections of a Work Flow job? 
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TASK INITIATION AND CONTROL 

Unit 3 

Task Initiation 

OBJECTIVE 

Construct simple task initiation statements. 

PURPOSE 

Once the purpose of WFL is known and the basic structure of the language 
understood, it is necessary to begin constructing some simple statements to 
accomplish the purpose of a WFL job. 

RESOURCES 

a. Student Guide Section 1 

Unit 3 

b. A Series WFL Reference Manual Section 5 

Section 6 



KEY WORDS 

COMPILE 

RUN 

COPY 

ADD 

START 

PROCESS 

LOG 

PB 

SCR 

PTD 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 3: Task Initiation 



LEARNING SEQUENCE 

A task initiation statement is used to start user programs and system Junctions as 
separate dependent tasks. Some simple task initiation statements are COMPILE. 
RUN, START, and COPY. These task initiation statements run synchronously; that 
is, one task must complete before the next task is started. 



■< task initiation statement >- 



; < compiler task equation list > > 

; < task equation list > > 

The COMPILE statement is used to initiate a compiler, which uses a source 
program to generate an object program. 

• COMPILE PROGA COBOL74 LIBRARY ; 

• COMPILE PROGB/OBJ WITH FORTRAN SYNTAX ; 

• COMPILE PROGC ON USERl ALGOL LIBRARY GO ; 

The RUN statement is used to initiate an object program. 

a RUN PRDHA • 

• RUN PROGB ON USERl ; 

The COPY and ADD statements allow the capability to do file maintenance through 
WFL. 

• COPY A AS B ; 

• COPY A/=, B/= TO BKUP ; % (KIND = TAPE) 

• ADD COBOL/= FROM DEVELOPMENT ; % (KIND = TAPE) 

• ADD Z/= FROM T TO R (KIND=PACK), TO DISK ; 

% (KIND = DISK) 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 3: Task Initiation 



LEARNING SEQUENCE 

The START statement is used to initiate another job that is independent of the 
requesting task. The START statement initiates the WFL compiler as a 
synchronous dependent task. After the compiler finishes, the resultant WFL 
program is initiated as a job task. The original job waits for the WFL compiler, 
but not for the job task to complete, before continuing to the next statement. 

The started job is independent of the job that started it and runs according to its 
own attributes. If the started job does not have a usercode job attribute, the 
usercode of the job that performed the start is used. 

• START INVENTORY ; 

• START PAYROLL ON PAYPACK ; 

• START AJOB; STARTTIME = 12:02 ; 

The PROCESS statement initiates a task asynchronously and can be used with any 
other task initiation statement. The job will not terminate, however, until all 
asynchronous tasks have terminated. 

• PROCESS RUN PROGA ; 

• PROCESS COPY A AS (WFL)A ; 

Other task initiation statements are LOG, PB, SCR and PTD. 

• LOG OPERATOR AX ; 

• PB "PRINTOUT/ONE" COPIES 3 SAVE ; 

• SCR ; 

• PTD ; 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 3: Task Initiation 

LEARNING SEQUENCE 

SAMPLE JOBS: 

• BEGIN JOB MYJOB ; 

RUN PROGX ; 
END JOB 

• BEGIN JOB MYJOB ; 

PROCESS RUN PAYROLL ON PRODUCTION ; 

END JOB % Control gets to the end of job before 

Payroll is finished. 

• BEGIN JOB MYJOB ; 

DESTNAME = SITE ; 
PROCESS RUN USERl/PRQGA ; 
RUN USERl/PROGB ; 
END JOB 

• BEGIN JOB MYJOB ; 

QUEUE = 30 ; % CLASS = 30 ; 

DESTNAME = CECRJEl ; 

RUN (USER)CEC/INITIALS ON EDUCATION ; 
END JOB 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 3: Task Initiation 



PRACTICE EXERCISE 



Write the WFL statements that will have the system do the following. Assume 
that the files are on the Halt/Load unit DISK unless otherwise stated. 



1. Initiate the object program CHECK/WRITER which is located on 
disii named USERB. 



2. Initiate the WFL program BACKUP which is located on the 
Halt/Load unit. 



3. Initiate the program CHECKBOOK/UPDATE simultaneously with the 
CHECK/WRITER program initiated in step 1. 



4. Initiate the programs CHECKBOOK/TOTALS and 
CHECKBOOK/PRINTOUTS synchronously. 



5. Initiate the programs A, B, and C with programs A and B 
asynchronous to each other and program C synchronous to B. 
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TASK INITIATION AND CONTROL 

Unit 4 

Basic Task Control and Communications 



OBJECTIVE 



Construct basic task control and communication statements. 



PURPOSE 



After learning the skills to structure basic WFL and task initiation, the next 
step is to control those tasks which perform a required sequence of events. 



RESOURCES 

a. Student Guide 

b. A Series WFL Reference Manual 



Section 1 

Unit 4 

Section 6 

Section 7 



KEY WORDS 



Task state 

Task variable 

Task identifier 

IF 

THEN 

ELSE 



DISPLAY 
String expression 
ABORT 
COMPOUND 
BEGIN - END 
WAIT 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 4: Basic Task Control and Communications 



LEARNING SEQUENCE 

Up to this point, the basic structure of a WFL job has been presented along with 
simple task initiation statements. Consideration must be given to havmg some 
knowledge of what those tasks are doing. The system provides a means for 
checking on certain types of status such as whether the task is active, scheduled, 
completed, or completed ok. This type of information is referred to as the task 
state. To be able to check on the status or state of a task, there is a special 
type of declaration statement particularly for use with tasks. The use of this type 
of declaration statement provides a task variable which may then be assigned to a 
particular task. When it is assigned, the task variable becomes a task identifier. 
A t^k identifier may then be referenced, as to the task state, to make a decision 
concerning the flow of the job. 

• TASK Tl T2 ; * Declaration of a task 

variable 

• RUN PROGA [ Tl ] ; % Assignment of a task 

variable to a task 

To make a decision within a WFL job. the simplest statement to use is an IF 
statement. The IF statement evaluates a boolean expression to de^rmine if the 
value is true or false. If the expression is true, the statement following the THEN 
will be executed. If the expression is false, then either the statement after the 
ELSE will he executed, or if there is no ELSE phrase, the next sequential 
statement in the job will be executed. The Boolean expression used below is 
checking on a task state while the statements that may be used are any of those 
in section 7 of the reference manual. 

• IF Tl ISNT COMPLETEDOK THEN < statement > ; 

• IF Tl IS COMPLETEDOK 

THEN < statement > ; 

• IF Tl IS ACTIVE 

THEN < statement > 
ELSE < statement > ; 
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SECTION 1: TASK INITIATION AND CONTROL 
UNIT 4: Basic Task C(Hitrol and Communications 



LEARNING SEQUENCE 

Once the ability of checking on a task is available, the next step is to be able to 
communicate that status with the operator when necessary. The DISPLAY 
statement is used to communicate with the operator by putting a message on the 
ODT, in the log file, and in the job summary. The message must be in the form 
of a string expression. A string expression normally is treated as a group of 
characters. 

• DISPLAY < string expression > ; 

• DISPLAY "THIS TASK DID NOT COMPLETE" ; 

• DISPLAY STRl ; % Using a string variable 

Another statement that might be useful for displaying information to the operator 
and also for discontinuing the job is the ABORT statement. The ABORT statement 
allows the WFL programmer to "abort" the job currently executing. It optionally 
allows the capability to display a string expression. The abort statement also 
allows one to abort an individual task through the use of its task identifier. An 
optional string expression may be displayed prior to aborting the task. 

• ABORT ; % JOB 

• ABORT < string expression > ; 

• ABORT "THIS TASK FAILED, ABORTING THE JOB" ; 

• ABORT STRl ; 

• ABORT [ TSKl ] ; % TASK 

• ABORT [ Tl ] "TASK Tl IS ABORTED" ; 

One limitation of the IF statement is that the THEN and the ELSE phrases only 
allow one statement to be executed. To make up for that limitation, another 
statement has been provided to allow several statements to be treated as one 
statement. This statement is the COMPOUND statement. If the COMPOUND 
statement is used after the THEN or ELSE phrases, any number of statements may 
be executed. The COMPOUND statement starts with BEGIN and stops with an 
END. 
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LEARNING SEQUENCE 



• IF Tl ISNT COMPLETEDOK THEN < statement > 



IF Tl IS COMPLETEDOK 


THEN 


BEGIN 


< statement > ; 




< statement > 




< statement > 




< statement > 




< statement > 




END ; 





% USE OF A COMPOUND STATEMENT 



IF Tl IS ACTIVE 
THEN 

BEGIN 

< statement > 

< statement > 

< statem.ent > 

< statement > 
END 

ELSE 

BEGIN 

< statement > 

< statement > 

< statement > 
END ; 



,,0" 'M? » /->/-\i\/iDOTTMr> CTATFMFNT 



% USE OF A COMPOUND STATEMENT 
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LEARNING SEQUENCE 



There is still one problem that can exist in basic flow control in that there is not 
any method to temporarily suspend the current flow until an asynchronous task is 
finished. The statement provided for this purpose is the WAIT statement. This 
statement allows the programmer to wait on a task completion, time element, file 
existence, particular status of a task, or operator input. Examples of these follow: 



BEGIN JOB MYJOB ; 

TASK Tl ; 

PROCESS RUN MYPROGl 

RUN MYPR0G2 ; 

WAIT ( Tl ) ; 

RUN MYPR0G3 ; 
END JOB 



[ Tl ] 



% MYPR0G2 COMPLETES & WAITS Tl 
% MYPR0G3 WAITS FOR MYPROGl 



BEGIN JOB MYJOB 
RUN MYPROGl ; 
WAIT (30) ; 
RUN MYPR0G2 ; 

END JOB 



% WAIT FOR 30 SECONDS 

% MYPR0G2 EXECUTES AFTER WAIT 



BEGIN JOB MYJOB ; 

PROCESS RUN MYPROGl ; 

RUN MYPR0G2 ; 

WAIT (FILE MASTERFILE IS RESIDENT) 



RUN MYPR0G3 
END JOB 



% MYPR0G2 COMPLETES & WAITS 
% ON MASTERFILE BEING RESIDENT 
% MYPR0G3 EXECUTES WHEN 
% MASTERFILE IS RESIDENT 
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LEARNING SEQUENCE 



BEGIN JOB MYJOB ; 

PROCESS RUN MYPROGl 

RUN MYPR0G2 ; 

WAIT ; 

RUN MYPROG3 ; 
END JOB 



% WAIT FOR < mix number > HI 
% FROM THE OPERATOR 



BEGIN JOB MYJOB ; 

PROCESS RUN MYPROGl ; 

RUN MYPR0G2 ; 

WAIT (OK) ; 

RUN MYPR0G3 ; 
END JOB 



% WAIT FOR < mix number > OK 
% FROM THE OPERATOR 



BEGIN JOB MYJOB ; 

PROCESS RUN MYPROGl ; 

RUN MYPR0G2 ; 

WAIT ("MOUNT TAPE", OK) ; 

RUN MYPR0G3 ; 
END JOB. 



% DISPLAYS MOUNT TAPE & 

% WAITS FOR < mix number > OK 

% FROM THE OPERATOR 



Using the basic job structure below, the task <;Ontrol^n6oon.mu^^^^^ 
operator usually becomes the largest portion of a WFL job. This can be seen 



BEGIN JOB MYJOB ; 

PROCESS RUN PROGX ; 

RUN PROGY ; 

RUN PROGZ ; 
END JOB 



% RUN TASK X ASYNCHRONOUSLY 

% RUN TASK Y 

% RUN TASK Z AFTER Y 
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LEARNING SEQUENCE 

00000100 BEGIN JOB MYJOB ; 

00000200 QUEUE = 30 ; 

00000300 PRIORITY = 70 ; 

00000400 DESTNAME = RJEl ; 

00000500 TASK Tl, T2, T3, T4 ; 

00000600 PROCESS RUN PROGX [ Tl ] ; 

00000700 RUN PROGY [ T2 ] ; 

00000800 WAIT ( Tl ) ; 

00000900 IF Tl ISNT COMPLETEDOK 

00001000 THEN 

00001100 BEGIN 

00001200 DISPLAY "PROGX FAILED, RETRY IN PROGRESS" ; 

00001300 RUN PROGX/BKUP [ T3 ] ; 

00001400 IF T3 ISNT COMPLETEDOK 

00001500 THEN ABORT "PROGX/BKUP FAILED" ; 

00001600 END; 

00001700 IF T2 ISNT COMPLETEDOK 

00001800 THEN ABORT "PROGY FAILED " ; 

00001900 RUN PROGZ [ T4 ] ; 

00002000 IF T4 ISNT COMPLETEDOK 

00002100 THEN DISPLAY "PROGZ FAILED, SO DID THE JOB" ; 

00002200 END JOB 
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PRACTICE EXERCISE 

Write the WFL statements that will have the system do the following: 

1. Write a WFL statement to execute a task synchronously using a task 
identifier TSKl. The object code file for the task is called 
OBJECT/PAYROLL/ONE. 



Write a WFL statement to check on the status of task Tl to 

see if it completed ok. If Tl did complete ok, then execute the task 

PR0G/UPDATE2; otherwise, display the error message "Tl FAILED", 



3. Write a WFL statement to abort the job if task T2 fails. 



4 Write the WFL statements to execute two tasks, asynchronously. The names 
of the two tasks are PROGl and PR0G2 respectively. Each task should have 
a task identifier and there should be a statement to suspend further execution 
of the job until the asynchronous task is finished. 
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TASK INITIATION AND CONTROL 

Unit 5 

Job Initiation 



OBJECTIVE 

Construct WFL job initiating statements. 

PURPOSE 

Once it is known how to write WFL jobs, it becomes necessary to be able to 
start them to verify that they do what is intended. 

RESOURCES 

a. Student Guide Section 2 

Unit 5 

b. A Series WFL Reference Manual Section 2 

Section 6 

c. A Series GOT Reference Manual Section 2 

d. The B 6700 WFL Primer Chapt 14 
KEY WORDS 



START 
STARTJOB 
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SECTION 2: TASK INITIATION AND CONTROL 
UNIT 5: Job Initiation 



LEARNING SEQUENCE 



With enough information to write an effective WFL job, the next logical step is to 
initiate the job. There are several places from where that may be accomplished. 
CANDE and the ODT are probably the most common; however, jobs may also be 
started from a card reader, a zip from a program, or from other jobs. 



Using a CANDE terminal: 



- START < WFL file name > 

- START 
or 

-ST < WFL file name > 

- ST 



% Used to start a WFL file 
resident on disk 

% Used to start the current 
CANDE wori<file 



% Use of the abbreviated 
form of the start command 






- START 



< WFL file name > 



STARTJOB < WFL file name > 



% Used to start a WFL file 
resident on disk 



A point to note about starting WFL jobs is that the Controller may recognize some 
statements passed to it as being part of WFL even though they are not an ordinary 
ODT command. The Controller will insert a BEGIN JOB in front of the statements 
and an END JOB behind them which effectively creates a WFL job. The Controller 
then passes this job to the WFL compiler. Task initiation statements are good 
examples of this. 
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UNIT 5: Job Initiation 



PRACTICE EXERCISES 



1. Write the command to initiate a CANDE workfile whose type is 
JOB. 



2. Write the command to initiate a job to compile a program. 
The name of the job file is called COMP/FILE. 



Explain the use of the START command when your workfile is 
the job file and your workfile has not been saved. 
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LAB : 1-1 



Write and pun a Work Flow job which includes the steps described below. You may 
find it helpful to write, perform, and check each step separately before adding the 
next step to the job. 

STEP 1: The job name is to be in the following format. 

<your initials>/LABl 

STEP 2: The job is to execute at the default priority for the class usercode. 

STEP 3: Program Print/Practice is to execute first. 

STEP 4: If program Print/Practice is completed successfully then the program 

Cobol/Sample is to be executed asynchronously with Algol/Sample. Job 
flow control is to be maintained through Algol/Sample. 

STEP 5: If either sample program fails, terminate the job immediately, 

specifying which program failed. 

STEP 6: After the previous step is accomplished, start the job from CANOE at 

your- work station. Get onto the MARC window and determine what is 
in the mix for this job(AA from MARC action line). Get back onto 
the CANOE window and enter the required information. Terminating 
the Algol/Sample program should terminate the Cobol/Sampie normally 
and proceed to a normal EOJ. 

SAVE YOUR JOB FOR FUTURE PROJECTS. 

SHOW THE JOB SUMMARY INCLUDING STEPS 1 THRU 6 TO THE INSTRUCTOR. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 



FILE MAINTENANCE AND COMPILATIONS 



SECTION OBJECTIVE 

Construct file maintenance and compilation statements. 

PURPOSE 

This section provides the information necessary to perform basic library 
maintenance and compilations using tasi< attributes and file attributes to set 
the environment for each executing tasl<. 

UNIT OBJECTIVES 

• Construct task equation statements using tasl< attributes. 

• Construct file equation statements using file attributes. 

• Construct file maintenance statements using appropriate 
WFL naming conventions. 

• Construct COMPILE statements using file equations. 
9 Construct WFL job initiating statements. 
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FILE MAINTENANCE AND COMPILATIONS 

Unit 1 

Task Equations 



OBJECTIVE 



Construct task equation statements using task attributes. 



PURPOSE 



In the operation of a large system, it is sometimes necessary to ciiange the 
environment in which a task is executing. Under WFL. the capability exists 
to modify the environment of a task on an individual basis. 



RESOURCES 

a. Student Guide 

b. A Series WFL Reference Manual 

c. A Series Print System Reference Manual 



Section 2 

Unit 1 

Section 5 

Appendix A 

Section 3.2 



KEY WORDS 



Task attribute 

DESTNAME 

FAMILY 

JOBNUMBER 

STACKNO 

NAME 

MAXCARDS 

MAXIOTIME 

MAXUNES 

MAXPROCTIME 

MAXWAIT 



PRINTDEFAULTS 

PRIORITY 

RESTART 

RESTARTED 

STATION 

STATUS 

SWl THRU SW8 

TASKVALUE 

USERCODE 

Task equation 
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UNIT 1: Task Equations 



LEARNING SEQUENCE 



A Task Attribute defines a characteristic of a task. Changing the state of a single 
attribute changes the characteristics of a task and may cause changes in subsequent 
tasks if a task identifier is used. 



• TASK ATTRIBUTES 
- DESTNAME 



FAMILY 



JOBNUMBER 

STACKNO 

NAME 

MAXCARDS 

MAXIOTIME 

MAXUNES 

MAXPROCTIME 

MAXWAIT 

PRINTDEFAULTS 

PRIORITY 
RESTART 



- RESTARTED 



Destination name for printer or punch 
backup. This attribute may be set to 
either a station name or SITE. It is 
used frequently for sending printed 
reports to remote sites under RJE. 

Indicates which family specifications 
are to be applied to a task. It 
basically controls the access to 
families. TAPE is not allowed as a 
familyname. 

Represents the mix number of the job. 

Represents the mix number of the task. 

Represents the name of the task. 

Represents limits imposed on the task 
or job by either system defaults or 
programmer supplied values. 



Used to set file attribute default values for printed 
output. 

Used by the system for scheduling functions. 

Specifies the number of times the task 
may be restarted following an error 
termination. 

True if the task has been restarted or 
after a rerun statement. 



2-4 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 1: Task Equations 



LEARNING SEQUENCE 

• TASK ATTRIBUTES (continued) 

- STATION Contains the logical station number. 

- STATUS Represents the current task state. It 

is very similar to the task state 
discussed earlier. It may not be used 
in a task equation. 

- SWl THRU SW8 Used in COBOL74. 

- TASKVALUE Provides a means for passing one real 

number to a task. It is not dealt with 

as a parameter. Known in WFL as VALUE. 

- USERCODE Specifies the usercode under which a 

task is to execute. 



A Task Equation is used to specify changes to the current task attributes within 
the program being initiated. The attribute name must be used in a task equation. 



• RUN PROGA/OBJ ; 

PRIORITY = 70 ; 
MAXLINES = 1000 ; 
DESTNAME = CECRJEl ; 

• PROCESS RUN PROGB/OBJ ; 

FAMILY DISK = PRODUCTION OTHERWISE DISK ; 
USERCODE = MYUSERCODE/MYPASSWORD ; 

VALUE = 3 ; 
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UNIT 1: Task Equations 



PRACTICE EXERCISE 

Write the WFL statements that will have the system do the following: 

1. Write the WFL statements to execute PROGA using a task identifier TSKl 
synchronously with another task. PROGA is to run with a priority of 80. 



2. Write the WFL statements to execute PROGB asynchronously with 

PROGC, and allow a maximum output of 3000 printed lines for PROGC. 



Write the WFL statements to execute PROGD synchronously with 

another task and find its files only under the family USER2. Those files are 

located in the usercode PRODUCTION and a have a password of PRODI. 



Write the WFL statements to execute PROGD synchronously with 
another task. PROGD needs a value of 3 to be passed to it for correct 
operation. 
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FILE MAINTENANCE AND COMPILATIONS 

Unit 2 

File Equations 

OBJECTIVE 

Construct file equation statements using file attributes. 



PURPOSE 



When a programmer writes a program, the filenames that are used in the 
program seldom match those used on a system. The capability exists to 
modify the physical file that a program is to access, but also other attributes 
or specifications about the file. 



RESOURCES 



a. Student Guide 

b. A Series WFL Reference Manual 

c. I/O Subsystem Reference Manual 



Section 

Unit 



Section 5 
Section 4 



KEY WORDS 



File attribute 

INTNAME 

TITLE 

FILENAME 

FAMILYNAME 

FAMILYINDEX 

KIND 

FILETYPE 

FILEUSE 



UNITS 

MAXRECSIZE 

MINRECSIZE 

BLOCKSIZE 

AREASIZE 

AREAS 

FLEXIBLE 

CRUNCHED 

MYUSE 
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LEARNING SEQUENCE 



File names and file titles are used to identify physical files. A file name 
identifies a physical file without consideration of the disk where it resides. No 
pack name is required if the file resides on the Halt/Load family or if security 
invokes a default pack. A File Title identifies a physical file and the disk on 
which it resides. Directory names and directory titles are used to identify a group 
of physical files all having the same first name or belonging to the same user. 



• XYZ 

• Y/Z ON USERA 

• A/= 

• (A)B ON DISK 

• ABC/DEF 

• (LMN)= ON PACKB 
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LEARNING SEQUENCE 



A File Attribute defines a characteristic of a file. Changing the state of a single 
attribute changes the characteristics of the file and may cause the states of other 
attributes to be changed. 



• FILE ATTRIBUTES 



INTNAME 



TITLE 



- FILENAME 



- FAMILYNAME 

- FAMILYINDEX 

- KIND 

- FILETYPE 

- FILEUSE 



Internal filename chosen by 
the programmer of a task. 

Complete external filename. 
Associates a logical file with 
a physical file or match port 
files. 

Default = INTNAME 

External filename. Used to 
indentify the physical file. 

Default = INTNAME 

Name or label of a disk 
family. 

Relative number indicating 
a physical unit in the family. 

Describes the peripheral unit 
associated with the logical 
file. 

Specifies the format of the 
records and the structure used 
to store them. 

Describes how the file may be 
used. 
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LEARNING SEQUENCE 



• FILE ATTRIBUTES (continued) 



- UNITS 



MAXRECSIZE 



- MINRECSIZE 



- BLOCKSIZE 



AREASIZE 

AREAS 

FLEXIBLE 
CRUNCHED 



MYUSE 



Indicates whether certain 
attribute values are in words 
or bytes. 

Specifies the maximum record 
size that may be used in the 
logical file. 

Specifies the minimum record 
size that may be used in the 
logical file. 

Usually the amount of physical 
transfer that takes place in a 
physical I/O. Size is usually 
a multiple of MAXRECSIZE. 

Specifies the number of 
logical records in a disk 
area called a row. 

Specifies the total number of 
rows that may be allocated for 
a file. 

Indicates whether a file may 
be allocated more areas. 

Indicates whether a file was 
closed with a crunch. If it 
was, the area within the row 
beyond the last used block 
is returned to the system. 

Describes the user's intended use of the 
file, such as: INPUT, OUTPUT, or 10. 
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LEARNING SEQUENCE 

A file equation is used to specify changes to the various file attributes declared 
within the program being initiated. The internal name of the file must be used 
with a file equation. 



• RUN PROGB/OBJ ; 

- FILE INFILE{BLOCKSIZE = 30, KIND = TAPE) ; 

- FILE LINE(KIND = PRINTER) ; 

• RUN PROGC/MYVERSION ; 

- FILE INP{KIND = DISK, TITLE = DATAFILE/MYVERSION) ; 

- FILE OUT(KIND = TAPE) ; 

• COMPILE PROGC/MYVERSION COBOL74 LIBRARY ; 

- COMPILER FILE CARD{KIND = DISK, TITLE = PROGC/SRC) ; 

• COMPILE PROGB/OBJ ALGOL LIBRARY ; 

- ALGOL FILE CARD(KIND = DISK, TITLE = PROGB/SRC) ; 

- FILE CARD(KIND = TAPE) ; 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 2: File Equations 

PRACTICE EXERCISE 

Write the WFL statements that will have the system do the following: 



1. Write a task initiating statement for the program PAYROLL 

that file equates the internal file IN? to the external file named 
UPDATE/DATA which is located on the family PRODUCTION. 



2. Write a file equation that equates the internal file OUTPUTT to the 

external file whose record size is 180 bytes and whose block size is 3600 
bytes. The Units attribute should be set to words, the device to be used is 
tape, and the filename is NEWMASTER. 



3 Write a file equation for the ALGOL compiler whose input card image 
file is located on the family USERPACK and whose name is SOURCEIN. 



Write a file equation for the task PRODUCTIONII whose input is normally 
on tape but for this run it will be found on disk. The family name is 
PRODUCTION, the filename is DATAIN. record size is 180 bytes, block size is 
300 words, and it will be used for input only. The internal file name being 
used for PRODUCTIONII is the same as the external name. 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 2: File Equations 

PRACTICE EXERCISE 

A. Write a WFL job using the instructions below. 

1. Name the job < your initials > . 

2. Put the job in queue 20. 

3. The user-coded files are on the family SYSTEMS, and the 
utilities and compilers are on the family DISK. 

4. The job should execute at priority 70. 

5. Run the programs PR0G/2A and PR0G/2B synchronously. 

6. End the job. 

B. Add the following to the job written above. 

1. If PR0G/2A does not end normally, abort the job. 
(Do not allow PR0G/2B to run) 

2. Display a message to the operator indicating whether 

r i\\j\jil i.u 1 ail ouv;v;eSSI uiiy Or jiOl. 

C. Add the following to the job written above. 

1. PR0G/2A should run at priority 75. 

2. Pass a value of 3 to PR0G/2B. 

3. PR0G/2B expects a tape file with the internal name INPUTT. For this 
run, it should use the disk file called DATA/IN on SYSTEMS instead of 
the tape file. 
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FILE MAINTENANCE AND COMPILATIONS 

Unit 3 

Library Maintenance 



OBJECTIVE 



Construct file maintenance statements using appropriate WFL naming 

ponvpntinns 



PURPOSE 



To be able to accomplish anything with a computer system, it is necessary to 
be able to have the appropriate files present. The user has available routines 
which will allow one to copy, add, and remove files, change filenames and 
security on selected files. 



RESOURCES 

a. Student Guide Section 2 

Unit 3 

b. A Series WFL Reference Manual Section 6 
KEY WORDS 



COPY 

AUTORM 

ADD 

CHANGE 

REMOVE 

SECURITY 

SECURITYTYPE 

SECURITYUSE 
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UNIT 3: Library Maintenance 



LEARNING SEQUENCE 

File maintenance statements may be used to change the name, attributes, security, 
or residence of disk files. WFL uses the MCP library maintenance routines to 
perform this function. 

The COPY statement is used to copy files between disk and tape media. If 
duplicate files exist, the results are dependent on how system options are set. If 
AUTORM is set, the existing version will be removed and the new version loaded in 
its place. If it is reset, a duplicate file condition will arise and display an 
appropriate message to the operator. If the ADD statement is used instead of 
COPY, the files will be copied to the destination where they are not already 
resident. 



• COPY A FROM X{KIND=TAPE) TO Z(KIND=DISK) ; 

• COPY A AS B FROM USERA ; 

• COPY A/=, B/= TO BKUP(KIND=DISK) ; 

• COPY A/= FROM XYZ(KIND=TAPE) TO USER(DISK), TO BKUP(DISK) 

• COPY AND COMPARE = FROM DISK TO XYZ{KIND=TAPE) ; 

• ADD COBOL/= FROM SYSTEM(KIND=TAPE) ; 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 3: Library Maintenance 



LEARNING SEQUENCE 



The CHANGE statement changes the names of files on a disk family. In WFL, if a 
family substitution statement is in effect, it will change the file on the substitute 
family only as of the 3.6 release. 



CAUTION Use of the "from" clause may save you grief ! 



• CHANGE W/X TO Y/Z ; 

• CHANGE A ON USERC TO B ; 

• CHANGE R/= TO S/= ; 

• CHANGE L/M TO N/O FROM USERA ; 

• CHANGE A/= TO B/=, C/C TO D/D FROM USERl ; 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 3: Library Maintenance 

LEARNING SEQUENCE 

The REMOVE statement removes files from a disk family. In WFL, if a family 
substitution statement is in effect, it will remove the file from the substitute 
family only as of the 3.6 release. 

CAUTION Use of the "from" clause may save you grief ! 

• REMOVE A/B ; 

• REMOVE C FROM USERC ; 

• REMOVE D/= FROM USERD ; 

• REMOVE V/W, X FROM PACKA, Y/= FROM PACKB, Z ; 



The SECURITY statement is used to change the SECURITYTYPE and 
SECURITYUSE of files on disk. 



SECURITY A/B PRIVATE lO ; 
SECURITY C/D ON USERl PUBLIC IN ; 
SECURITY E/F ON MYPACK GUARDED XYZ ; 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 3: Library Maintenance 



PRACTICE EXERCISE 



Using the files A through F below, generate the LIBRARY MAINTENANCE 
statements to accomplish the following in a WFL job. 

Assume the following: 

1. Unless otherwise noted, all these files should be 
manipulated under your usercoue. 

2. Unless otherwise noted, all these files are on the family 
DISK. 

3. A = SYSTEM/ALGOL B = PROGONE/CLASS 

C = PROGTWO/CLASS D = PROGTWO/CLASSMATES 

E = SYSTEM/COBOL F = SYSTEM/FORTRAN 



1. Copy file C from DISK to a tape labeled CDETAPE. 

2. Copy file C from the tape CDETAPE to a tape labeled DATAPE. 

3. Copy files A, B, C from DISK to a tape labeled MYTAPE. 



4. Copy file B to exist under your usercode. Then using the 
CHANGE WFL command, change the name to 
< your initials >/PROGONE/CLASS. 



5. Change the security of the file < your initials >/PROGONE/CLASS 
to PRIVATE, I/O. 



6. Remove the files created in steps 4 and 5. 
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UNIT 3: Library Maintenance 



PRACTICE EXERCISE (continued) 

Write the WFL statements that will have the system do the following. Assume 
that the Halt/Load Family is DISK. 

1. Copy all the files with a first name of PAYROLL from a tape 
named PAYBKUP to the Halt/Load family. 



Copy the files PROGl/SRC and PROGl/OBJ from the system 
disk to a user disk named BKUPPACK. Have each file 
compared immediately after it is copied. 



Copy only those files that are not currently resident on a 
user disk named SYSBKUP to that disk from a tape named 
SYSTEM. The group of files is named DOCUMENT. 



4. Change the first node of a group of filenames from ABC to XYZ. 
These files are located on a pack named USERl. 



5. Remove the file RS/TU and XYZ from the pack named USER2. 



Change the SECURITYTYPE of the file A on the system pack to 
PUBLIC and its SECURITYUSE to INPUT only. 
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FILE MAINTENANCE AND COMPILATIONS 

Unit 4 

Compiles 

OBJECTIVE 

Construct COMPILE statements using file equations. 

PURPOSE 

Since compilers are used at most sites, it is beneficial to icnow how to 
compile through a WFL job. In this way, the operations staff has more 
control over system resources. 



RESOURCES 

a. Student Guide 

b. A Series WFL Reference Manual 



Section 
Unit 

Section 



2 
4 



KEY WORDS 



$ (Dollar Sign Option) 

LINE 

LIST 

ERRORFILE 

ERRLIST 

ERRORLIST 

TAPE 

SOURCE 

MERGE 



NEWTAPE 

NEW 

NEWSOURCE 

SET 

RESET 

POP 

COMPILEDOK 

DATA CARD 

? (invalid punch) 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 



LEARNING SEQUENCE 



As covered in Unit 1, the WFL compiler takes source input and generates a 
specialized object code file. The other compilers on the system worI< in a similar 
manner in that they also take source input and generate object code output 
other compilers offer more options than the WFL compiler. 



These 



The basic compile statement was covered in Section 1 Unit 3 and the use of file 
equations in Unit 2 of this section. To be able to make use of a file equation it 
is necessary to know the internal files that a task has. There are several options 
available to the compiler through the use $ (dollar sign) options in those compilers. 
The normal or default diagram of a compilation is shown below. 



SOURCE 



COMPILER 



OBJECT 



Every compile in WFL must have two statements: 

• Compiler initiate 

• Compiler file equation or data card file in the WFL deck 



PRIMARY 
SOURCE 

SECONDARY 
SOURCE 



COMPILER 



OBJECT 



Compilers may have two input files which requires the use of an additional 
compiler file equation and a dollar sign option. 



PRIMARY SOURCE 

(CHANGES) 

010$SET MERGE 

100 BEGIN JOB ONE; 

250 PRIORITY = 80; 



SECONDARY SOURCE 

(ORIGINAL) 



100 BEGIN JOB; 
200 QUEUE = 50; 

300 DISPLAY "ONE"; 
400 END JOB 



THE COMPILER USES 

(END RESULT) 

010$SET MERGE 

100 BEGIN JOB ONE; 

200 QUEUE = 50; 
250 PRIORITY = 80; 

300 DISPLAY "ONE"; 
400 END JOB 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 

LEARNING SEQUENCE 

The compile statement format is 

COMPILE < object code file name > < compiler > < disposition > ; 

• The object code file name should be different from the 
source file name. 

• The compilers are: 



ALGOL 








COBOL 


BASIC 


DCALGOL 


NDL 


COBOL74 


XALGOL 


ESPOL 


NDLII 


FORTRAN 


PL/1 


BINDER 


NEWP 


FORTRAN?? 


PASCAL 


RPG 


SORT 



The disposition is one of the following: 

GO LIBRARY SYNTAX LIBRARY GO < blank > 



INTERNAL FILENAME $ OPTION 



FUNCTION 



CODE 



CARD 



LINE 



ERRORFILE 



TAPE 

SOURCE (COBOL74) 



LIST 



ERRLIST 
ERRORLIST 

(COBOL74) 

MERGE 



OBJECT CODE FILE 
(DISK) 

PRIMARY SOURCE FILE 
(CARD) 

SOURCE LISTING 
(PRINTER) 

ERROR LISTING 
(PRINTER) 



SECONDARY SOURCE 
(DISK) 



NEWTAPE NEW 

NEWSOURCE (C0B0L?4) 



NEW SOURCE FILE 
(DISK) 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 



LEARNING SEQUENCE 

The compiler options mentioned are made available through the use of a SET, 
RESET, or POP function. These functions with the options usually occur as the 
first records in the primary input file, although other compiler options may occur 
at any place in the file. The $ must occur in certain columns. 

• The functions operate as follows: 

SET Turns the option on. 

RESET Turns the option off. 

POP Returns the option to the previous 

setting. 

• The $ must be placed in certain columns as follows 

to have that $ record shown or not shown in the listing: 

ALGOL $ in. column 1 (not shown) 

$ in column 2 (shown) 

COBOL 74 $ in column 7 (not shown) 

$ in column 8 (shown) 

• A sample compile statement is as follows: 

COMPILE OBJECT/ALGOL/ONE ALGOL LIBRARY; 

ALGOL FILE CARD(KIND = DISK, TITLE = SOURCE/ ALGOL/PATCHl); 
ALGOL FILE TAPE(KIND = DISK, TITLE = SOURCE/ALGOL/ONE); 
ALGOL FILE NEWTAPE(TITLE = NEWSOURCE/ ALGOL/ONE); 

• A primary input file may contain as its first record when it is a patchfile: 

00000100$ SET MERGE NEW 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 



LEARNING SEQUENCE 



PRIMARY INPUT FILE 
(CARD) 



I 1 

I OPTIONALSECONDARY | 

I INPUT FILE I 

I I 

I 1 

I OPTIONAL SOURCE | 

I FILES INPUT BY 

I $ INCLUDE CARDS I 

I I 




COMPILER 




I OPTIONAL UPDATED I 
SYMBOLIC FILE I 

I (NEWTAPE) I 



OBJECT CODE FILE 
(CODE) 



I OPTIONAL LINE | 

I PRINTER LISTING j 

(LINE) ^ J 



OPTIONAL ERROR 
MESSAGE LISTING 
(ERRORFILE *- 






COMPILER INPUT FILES 

(SOURCE LANGUAGE 

INPUT AND COMPILER 

CONTROL STATEMENTS) 



COlVinLCK UAIATLUVV 



COMPILER -GENERATED 
OUTPUT FILES 



To check on the status of a compile, one of the task states available is 
COMPILEDOK which is set if there were no errors during compilation. A task 
identifier may be used to check on this status. There are two task identifier 
assignments possible in a compile statement. The first will be assigned to the 
object code being generated and the second will be assigned to the compiler itself. 

If this is used in the previous example, Tl is assigned to the status of the 
program being compiled and T2 is assigned to the compile status itself. 

COMPILE OBJECT/ALGOL/ONE [ Tl ] ALGOL [ T2 ] LIBRARY GO; 
ALGOL FILE CARD(KIND = DISK, TITLE = SOURCE/ ALGOL/PATCHl); 
ALGOL FILE TAPE(KIND = DISK, TITLE = SOURCE/ALGOL/ONE); 
ALGOL FILE NEWTAPE(TITLE = NEWSOURCE/ALGOL/ONE); 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 

LEARNING SEQUENCE 

By adding the data deck to the previous example, the file equation will be replaced 
by the data deck. When using the data deck, all data following the ALGOL DATA 
CARD is assumed to be data. The only way that the WFL compiler will stop 
regarding input as data is to find a ? (invalid punch) in the first column of a 
record. 

COMPILE OBJECT/ ALGOL/ONE [ Tl ] ALGOL [ T2 ] LIBRARY GO ; 

ALGOL FILE TAPE{KIND = DISK, TITLE = SOURCE/ ALGOL/ONE) ; 

ALGOL FILE NEWTAPE(TITLE = NEWSOURCE/ALGOL/ONE) ; 

ALGOL DATA CARD 
$ SET MERGE NEW 00000010 

END. 00001500 

? RUN MYPROG ; 

RUN OBJECT/ ALGOL/ONE ; 

COMPILE OBJECT/COBOL/ONE [ Tl ] COBOL [ T2 ] LIBRARY GO ; 

COBOL FILE TAPE(KIND = DISK, TITLE = SOURCE/COBOL/ONE) ; 

COBOL FILE NEWTAPE(TITLE = NEWSOURCE/COBOL/ONE) ; 

COBOL DATA CARD 

000010$ SET MERGE NEW 

013200 77 A PIC 9V99 VALUE 99. 



RUN MYPROG ; 

RUN OBJECT/COBOL/ONE ; 
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SECTION 2: FILE MAINTENANCE AND COMPILATIONS 
UNIT 4: Compiles 



PRACTICE EXERCISE 



Write the WFL statements that will have the system do the following. In all 
cases, the code generated should be saved on disk. 

1. Compile a program naming it PROGA/OBJ. The RPG source is 
named PROGA/SRC on the same disk. 



Compile a COBOL program whose object is OBJECT/PRODUCTIVITY/ONE and 
whose source is SRC/PRODUCTIVITY/ONE. A patchfile is used to 
supply corrections to the source file and its name is 
SRC/PRODUCTIVITY/PATCHONE. 



3. Compile the ALGOL program OBJ/ACCTS/PAY with the source 

SRC/ACCTS/PAY and the patchfile PATCHFILE/ACCTS/PAY. Create 
a new source file called NEWSRC/ACCTS/PAY, put any errors in 
a disk file called NEWSRC/ACCTS/PAY/ERRS. and send the 
listing to a normal printer backup file. 



4. Compile the COBOL source SRC/INVENTORY naming the task 
OBJECT/INVENTORY. Save the object file on disk after 
compilation and immediately execute it. The task should 
execute at a priority of 65 and have a maximum processor 
time of 300 seconds which are to be compiled into the task. 
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LAB 



2-1 



Write and run a Work Flow job which includes the steps described below. You may 
find it helpful to write, perform, and check each step separately before adding the 
next step to the job. 

STEP 1: Copy the following files from the family 

to the family : WFL/PROGISRC, WFL/PR0G3SRC, 

WFL/PR0G5SRC. and WFL/PR0G8SRC. 

STEP 2: Compile PROGS using PR0G8SRC with the COBOL74 compiler 

making sure to keep a copy on disk. 

STEP 3: Run PROGS. PROGS has an output disk file internally 

named DISK-FILE. This newly created file should have 
a directory name of your initials, a name of MASTER 
and reside on the user disk. Assure that more areas 
can be allocated than may be specified within the 
program. 

STEP 4: Make a backup copy of MASTER named MASTERBKUP under 

your directory. 

STEP 5: Change the name of the file MASTERBKUP TO MSTRBKUP. 

STEP 6: Compile PR0G3 using PR0G3SRC with the COBOL74 compiler 

making sure to keep a copy on disk. 

STEP 7: Run PR0G3. The input file was created in STEP 3. 

The output file, internally named PUNCH-FILE, is a 
card file. For this run only, create a disk file 
with a directory name of your initials and a name of 
DISKPUNCH. 

STEP 8: Compile PROGS using PR0G5SRC with the COBOL compiler making 

sure to keep a copy on disk. 

STEP 9: Run PROGS. The input file, internally named 

TIME-CARD, is a card file. Use the disk file 
WFL/TIMECARD instead. 

STEP 10: Compile PROGl using PROGISRC and COBOL74 making sure 

to keep a copy on disk. 

STEP 11: Run PROGl. The internal name of the print file is PRINTFILE. 

STEP 12: Remove all files you created in this WFL job from 

the disk. 
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LAB : 2-2 

Write and run a Work Flow job which includes the steps described below. You may 
find it helpful to write, perform, and check each step separately before adding the 
next step to the job. 

STEP 1: The source files CLASS/PROGANEW and CLASS/PROGBNEW 

exist on disk. Copy these files simultaneously (not 
one after the other) into your own library, under 
the names UTIL/< yourname >/PROGANEW and 
UTIL/< yourname >/PROGBNEW. 

STEP 2: Compile the COBOL source UTIL/< yourname> /PROGANEW. 

Name the object file UTlL/< yourname >/PROGA, and store 
it in your library for execution later. 

STEP 3: If PROGANEW fails to compile (step 2 above), then do 

the following: 

A. Place the COBOL source CLASS/PROGAOLD into your 
library under the name UTIL/< yourname >/PROGAOLD. 

B. Compile this source, and store the object as 
UTIL/< yourname >/PROGA. 

STEP 4: If PROGAOLD has syntax errors (step 3 above), stop 

the entire job and give the reason for termination in 
the job summary. 

STEP 5; Patch and compile the ALGOL "rc^ram described below. 

A. Name the object UTIL/< yourname >/PROGB. 

B. The patchfile is CLASS/PROGBNEW/PATCH ON DISK. 

C. The source is UTlL/< yourname >/PROGBNEW ON DISK. 

D. Create a new source disk file called 
UTIL/< yourname >/NEWBB. 

STEP 6: If PROGBNEW fails to compile (step 5 above), then copy 

the object file CLASS/PROGB into your library under 
the name UTIL/< yourname >/PROGB. 

STEP 7: If UTIL/< yourname >/PROGB does not reside on disk at 

this point (steps 5 and 6 above), stop the entire 
job and give the reason for termination in the job 
summary. 



SAVE YOUR JOB FOR USE IN FUTURE LAB PROJECTS. 

SHOW THE JOB SUMMARY INCLUDING STEPS 1 THRU 7 TO THE INSTRUCTOR. 
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LAB : 2-3 

Additional labs may be supplied by the instructor. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 



EXPRESSIONS. ITERATIONS, and FUNCTIONS 



SECTION OBJECTIVE 

Construct a WFL job using assignment statements, iterative statements, and 
WFL functions. 



PURPOSE 

This section adds the concept of using variables in task control. 
Consideration will also be given to routines provided for the WFL 
programmer in the form of functions. 



UNIT OBJECTIVES 

• Construct assignment statements using appropriate 
expressions. 

• Construct iterative and case statements to control the 
flow of a WFL job. 

• Construct statements using string functions. 

• Construct statements using numeric functions. 

• Construct job attribute statements. 

• Construct job initiating statements that pass 
parameters. 
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EXPRESSIONS, ITERATIONS, and FUNCTIONS 

Unit 1 

Declaratirais, Ezpressi<His, and Assignments 

OBJECTIVE 

Construct assignment statements using appropriate expressions. 

PURPOSE 

One of the most useful tools in any language, is the ability to calculate 
values. This unit deals with the declaration of variables, the evaluation of 
expressions, and the assignment of values. 



RESOURCES 

a. Student Materials 

b. A Series WFL Reference Manual 



Section 
Unit 

Section 
Section 



KEY WORDS 

REAL 
INTEGER 
BOOLEAN 
STRING 



expressions 

primary 

real expressions 

real variables 

integer expressions 

integer variables 



boolean expression 
boolean variables 
string expressions 
string variables 
# string primary 
assignment statement 
MYSELF 
MY JOB 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations. Expressicms, and Assignments 



LEARNING SEQUENCE 

In Section 1, the declaration section was mentioned as one of the five major 
sections of a job. In making a declaration, the compiler is directed to generate 
the code necessary to reserve a portion of memory for the variable being declared. 
The amount of memory is determined by the type of declaration being made. As 
covered earlier, task variables are one type of declaration. In WFL, all variables 
must be explicitly declared. The new types to be covered in this unit are REAL, 
INTEGER, BOOLEAN, and STRING. 



• REAL 

- NUMERIC 

- 12 DIGITS AND DECIMAL POINT MAXIMUM 

- WHOLE AND FRACTIONAL NUMBERS 

• INTEGER 

- NUMERIC 

- 12 DIGITS AND NO DECIMAL POINT 

- WHOLE NUMBERS ONLY 

• BOOLEAN 

- LOGICAL 

- TRUE or FALSE 

• STRING 

- GROUP OF CHARACTERS 

- 256 CHARACTERS MAXIMUM 
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UNIT 1: Declarations, Expressions, and Assignments 



LEARNING SEQUENCE 



With areas of memory reserved by declaration statements, the purpose is to store a 
value in memory. It may be necessary to manipulate a combination of many values 
to obtain a single value for storage. This evaluation is performed on an expression. 
Expressions may be one value (primary) or a combination of values manipulated 
through the use of operators. As with declarations, there are different types of 
expressions and operators. 



ARITHMETIC OPERATORS: 



REAL 



/ 

DIV 

MOD 



% WHOLE or FRACTIONAL NUMBERS 

% ADDITION 

% SUBTRACTION 

% MULTIPLICATION 

% REAL DIVISION 

% INTEGER DIVISION 

% MODULUS DIVISION 



INTEGER 



% WHOLE NUMBERS ONLY 



DIV 
MOD 



ARITHMETIC OPERATOR PRECEDENCE: 

• PREFIX + or - % Unary operator - one operand 

• *, /, DIV, or MOD % Equal precedence 

• INFIX + or - % In an expression between operands 
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SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations, Expressiixis, and Assignments 



LEARNING SEQUENCE 



ARITHMETIC EXPRESSIONS: 

• Real expressions yield numerical values by combining real 

primaries with arithmetic operators. The conventional operators, +, -, *, 
/ for addition, subtraction, multiplication, and real division are used. The 
DIV operator produces a quotient with a truncated fractional part. The 
MOD operator returns the remainder of a divide operation. 

• Real variables may be used to store the value of real 
expressions. 



- EXAMPLES: 

* REAL Rl. R2, R3 

• REAL R4 ; 



% REAL DECLARATIONS 



% REAL EXPRESSIONS 



• 95+72 

• 57 - R2 

• R3 • 4 / 3 

• Rl DIV 3 

Integer - expressions yield numerical values by combining 
integer primaries with arithmetic operators. The conventional operators. 
+, -, * for addition, subtraction, and multiplication are used. The DIV 
operator produces a quotient with a truncated fractional part. The MOD 
operator returns the remainder of a divide operation. 

Integer variables may be used to store the value of 
integer expressions. 

- EXAMPLES: 

» INTEGER II, 12, 13 ; 

• INTEGER R4 ; 



% INTEGER DECLARATIONS 



• 95+72 

• 57-12 

• 3+17-4*3 

• II DIV 3 



% INTEGER EXPRESSIONS 
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SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations, Expressions, and Assignments 



LEARNING SEQUENCE 



BOOLEAN OPERATORS: 

• NOT 

• AND 

• OR 

• IMP 

• EQV 



% BOOLEAN OPERATOR PRECEDENCE 

% NEGATE PRESENT VALUE 

% TRUE IF BOTH ARE TRUE 

% TRUE IF EITHER IS TRUE 

% FALSE IF 1ST TRUE 2ND FALSE 

% TRUE IF BOTH ARE THE SAME 



BOOLEAN RELATIONAL OPERATORS: 

• ARITHMETIC COMPARISON 

- LSS 

- GEQ 

- GTR 

- LEQ 

- EQL 

- NEQ 

- < 

- > 

• STRING COMPARISON 



- EQL 

- NEQ 

TASK STATE COMPARISON 

- IS or ISNT 



INUSE 

COMPLETED 

SCHEDULED 

ACTIVE 

STOPPED 

ABORTED 

COMPLETEDOK 

COMPILEDOK 
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UNIT 1: Declarations, Expressions, and Assignments 

LEARNING SEQUENCE 

BOOLEAN RELATIONAL OPERATORS: (continued) 

• TASK MNEMONIC COMPARISON 

- IS 

- ISNT 

• FILE RESIDENCY COMPARISON 

- IS or ISNT 

* RESIDENT 

BOOLEAN EXPRESSIONS: 

• A boolean expression is an expression that always evaluates to one of 
only two values: TRUE or FALSE. They provide the user with the 
power to make decisions during the run of a job. Boolean expressions 
usually contain two primaries and one operator, but can be more 
complex. 

• Boolean variables may be used to store the value of boolean expressions. 
They may also be used in place of the boolean expressions as used later 
in this unit. 

- EXAMPLES: 

* BOOLEAN Bl. B2; % BOOLEAN DECLARATIONS 

* BOOLEAN BOOL; 

* I < 10 % BOOLEAN EXPRESSIONS 

* STRl EQL "ONE" 

* JOBSUMMARY IS SUPPRESSED 

* Tl IS COMPLETEDOK 

* FILE ABC IS RESIDENT AND T2 IS COMPILEDOK 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations. Expressions, and Assignments 



LEARNING SEQUENCE 



STRING OPERATORS: 



% CONCATENATION OF STRINGS 





& 




« 




/ 




ON 




/= 



% 


STRING STRING 


% 


• STRING 


% 


STRING / STRING 


% 


STRING ON STRING 


% 


STRING /= 



STRING EXPRESSIONS: 

• String expressions yield a group of characters. Two 

strings may be concatenated together by the use of the "&" operator. 

• String variables may be used to store the value of string 
expressions. 



- EXAMPLES: 

* STRING SI, S2 ; 

* STRING STR ; 

* "HELLO THERE EVERYONE" 

* STRl & STR7 

* SI / S2 ON "SYSTEMS" 

* RUN # SI 

* START # SI / S2 






% STRING EXPRESSIONS 



A # <string primary> syntax may be used in dynamically built constructs 
such as filenames, family names, and usercodes using the string concatenation 
operators provided. Use of this format tells the system to use the contents 
of the variable rather than the variable name itself. 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations, Expressions, and Assignments 



LEARNING SEQUENCE 

An assignment statement assigns values to declared variables. The evaluation of an 
expression reduces that expression to a single "value" which will be assigned to a 
location in memory set aside by the declaration of a variable. In simple terms, it 
means that a value is stored at a memory address for later access. Variables may 
be assigned an initial value in the declaration statement. Since there are many 
different kinds of declarations, there may also be many types of assignments. For 
real, integer, boolean, and string type variables, the assignment operator is := 
(colon equals). 



REAL 



REAL R2 := 3.63, R4 := 18.477 ; 



Rl 
R3 
R6 



3 + 7.62 ; 
Rl + 3.72 
Rl + R6 ; 



% INITIAL VALUE 



INTEGER 



INTEGER 12 := 37 



II 
II 
II 



= 5 + 2 ; 
= 11 + 1 
=11+12 



% INITIAL VALUE 



BOOLEAN 



- BOOLEAN B4 := FALSE 

- Bl 

- B2 

- B3 



= TRUE ; 
= II = 3 ; 
= NOT Bl AND TRUE ; 



% INITIAL VALUE 



STRING 
- STRING SI := "EXECUTING " ; 



- STRl 

- STR2 

- STR3 



"THIS PROGRAM IS" ; 
= "NOT " ; 
= STRl & SI & STR2 ; 



STR3 := STRl & STR2 & SI ; 



% INITIAL VALUE 



% THE ORDER OF 
CONCATENATION 
DETERMINES THE 
RESULT 
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LEARNING SEQUENCE 

Other variables may have different forms for their assignment statements. In the 
previous section, task variables were assigned to a task to become a task identifier. 
Through the task equation, attributes were assigned to a particular task. Attributes 
may also be assigned to the task variable, which when assigned to a task, assigns 
those attribute values to that task. There are three ways to assign task attributes, 

• TASK EQUATION 

- RUN PROGA ; 

PRIORITY = 65 ; 

- RUN MYPROG ; 

MAXLINES = 1000 ; 

• TASK VARIABLE 

- Tl (PRIORITY = 75) ; 

- T4 (PRIORITY = 65, MAXLINES = 100) ; 

* Tl (MAXPROCTIME=20); % USE IN A JOB 
RUN PROGA [ Tl ] ; 

• INITIALIZE (Tl) ; % Tl (STATUS = NEVERUSED) 

% RESETS STATUS OF Tl 

RUN PROGB [ Tl ] ; 

• TASK VARIABLE AT DECLARATION 

- TASK Tl, T2 (PRIORITY = 90), T3 ; 

- TASK Tl, T2, T3(MAXLINES = 500. MAXPROCTIME = 30) ; 



MYSELF and MYJOB are predeclared task variables. They are used in exactly the 
same way as any task variable except that they may not be assigned to a task. 
MYJOB and MYSELF are task variables which provide access to the values of the 
job's task attributes. 
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SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 1: Declarations, Ejcpressions, and Assignments 

PRACTICE EXERCISE 

Evaluate the following expressions in the order of their execution within the job. 

BEGIN JOB EXPRESSIONS; 
STRING S.T.U; 
INTEGER I,J,R,V,W.X; 
BOOLEAN B,C; 

S := "X" ; % S CONTAINS _^_ 

T := "AB" & "C" ; % T CONTAINS 

S := S & "#T" ; % S CONTAINS . 

U:=T&S; % U CONTAINS . 

S := "1" ; % S CONTAINS 

S := S & S ; % S CONTAINS 

S:=S&S; % S CONTAINS 

T:=S&U; % T CONTAINS 

I := 15 ; % I CONTAINS 

J := 105 ; % J CONTAINS 

R := 2 ; % R CONTAINS 

V:=I*J; % V CONTAINS 

W := V DIV R ; % W CONTAINS 

W := V MOD R ; % W CONTAINS 

B:=S = T; % B CONTAINS 

C:=R<I; % C CONTAINS _^ 

END JOB 
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EXPRESSIONS, ITERATIONS, and FUNCTIONS 

Unit 2 

Flow Control Statements 

OBJECTIVE 

Construct iterative and case statements to control the flow of a WFL job. 

PURPOSE 

With the ability to calculate values, one way to shorten the amount of 
coding necessary is to create a looping structure or decide the direction of 
flow based on a value. 

RESOURCES 

a. Student Materials Section 3 

Unit 2 

b. A Series WFL Reference Manual Section 2 

Section 6 



KEY WORDS 



GO TO 
label id 
WHILE DO 
DO UNTIL 
CASE 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 2: Flow Control Statements 



LEARNING SEQUENCE 

The GO TO statement is perhaps the easiest of the flow control statements to use; 
however, care must be taken to be sure what will actually take place when the job 
executes. The GO TO statement requires the use of a label id to determine where 
control is to be passed and will unconditionally transfer control to that label. (BE 
SURE TO READ THE CAUTION IN THE REFERENCE MANUAL.) 



BEGIN JOB MYJOB 
INTEGER I ; 
DOIT: 
RUN MYPROG ; 
GO TO DOIT ; 

END JOB ; 



% INFINITE LOOP 

% LABEL ID 

% TRANSFERS CONTROL TO DOIT 



BEGIN JOB MYJOB ; 
INTEGER I, J ; 
I := 1 ; 
J := 1 ; 
DOIT : 
RUN MYPROG ; 
J := J + 1 ; 
I := I + J + 1 ; 
IF I = 5 

THEN GO TO FINISH 
GO TO DOIT ; 

FINISH: 

EXTn TOP . 



% INFINITE LOOP? 



% LABEL 



% EXECUTES MYPROG 



% LABEL 



TIMES 



BEGIN JOB MYJOB ; 
INTEGER I ; 
DOITAGAIN : 
RUN MYPROG ; 
I := I + 1 ; 
IF I LEQ 5 

THEN GO TO DOITAGAIN 
END JOB ; 



% LABEL 



% EXECUTES MYPROG 5 TIMES 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 2: Flow Control Statements 



LEARNING SEQUENCE 



The WHILE statement is used to execute a WFL statement when the condition is 
true. The statement to be executed may be a COMPOUND statement, which 
treats many statements as a single statement. If the condition is to be modified 
in the loop, care should be exercised to prevent an infinite loop. (BE SURE TO 
READ THE CAUTION IN THE REFERENCE MANUAL.) 



BEGIN JOB ; 
INTEGER I ; 
WHILE TRUE 
DO 

RUN MYPROG ; 
END JOB ; 



% INFINITE LOOP 



BEGIN JOB MYJOB ; 
INTEGER I, J ; 
I := 1 ; 
J := 1 ; 

WHILE I NEQ 5 
DO 
BEGIN 

RUN MYPROG ; 
J := J + 1 ; 
I := I + J + 1 ; 
END ; 
END JOB ; 



% INFINITE LOOP? 



BEGIN JOB MYJOB ; 
INTEGER I ; 
WHILE I LSS 5 
DO 
BEGIN 

RUN MYPROG ; 
1 := I + 1 ; 
END ; 
END JOB ; 



% EXECUTES MYPROG 5 TIMES 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITffiS 

SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 2: Flow Control Statements 



LEARNING SEQUENCE 

The DO statement performs the same function as the WHILE statement. However, 
the WFL statement is executed before the boolean expression is evaluated and will 
be repeated until the expression is true. Note, that with this order of events the 
WFL statement is always executed at least once, regardless of the value of the 
boolean expression. (BE SURE TO READ THE CAUTION IN THE REFERENCE 
MANUAL.) 



• BEGIN JOB ; 
INTEGER I ; 
DO 

RUN MYPROG ; 
UNTIL FALSE ; 
END JOB ; 



% INFINITE LOOP 



BEGIN JOB MY JOB ; 
INTEGER I, J ; 
I := 1 ; 
J := 1 ; 
DO 

BEGIN 

RUN MYPROG ; 
J := J + 1 ; 
I := I + J + 1 ; 
END ; 
UNTIL 1 = 5; 
END JOB ; 



% INFINITE LOOP? 



• BEGIN JOB MYJOB ; 
INTEGER I ; 
DO 

BEGIN 

RUN MYPROG ; 
I := I + 1 ; 
END ; 
UNTIL I GEQ 5 ; 
END JOB ; 



% EXECUTES MYPROG 5 TIMES 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILmES 

SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 2: Flow Control Statements 



LEARNING SEQUENCE 



The CASE statement allows dynamic selection of one out of several alternative 
statements depending on the value of the case expression. The case expression 
must be either an integer expression or string expression and be of the same type 
as the case constants provided. 



BEGIN JOB EXAMPLE ; 
TASK T ; 
INTEGER I ; 

DO 

BEGIN 

WAITC'ENTER OK WHEN SRC/PROGA IS CORRECT",OK) ; 
COMPILE OBJ/PROGA WITH COBOL74 [ T ] LIBRARY ; 
COMPILER FILE CARD (KIND = DISK, TITLE=SRC/PROGA) 
END ; 
UNTIL T IS COMPILEDOK ; 

I := 0; 



WHILE I < 3 




DO 




BEGIN 




CASE I OF 




BEGIN 




(0) : 


DISPLAY 


(1) : 


DISPLAY 


(2) : 


DISPLAY 


ELSE : 


DISPLA 


END ; 




RUN OBJ/PROGA ; 


I := I + 1 




END ; 




END JOB ; 





1ST RUN OF PROGA" ; 
2ND RUN OF PROGA" ; 
3RD RUN OF PROGA" ; 
DISPLAY " INVALID VALUE OF I" 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 2: Flow Control Statements 



PRACTICE EXERCISE 



Study the WFL jobs below, and then answer the questions following each job. 



BEGIN JOB A ; 
REAL COUNT ; 
COUNT := 7 ; 

WHILE COUNT GTR DO 
BEGIN 
RUN X ; 

TASKVALUE = COUNT 
COUNT := COUNT - 2 ; 



END ; 
END JOB ; 
Al. HOW MANY TIMES WILL THE LOOP BE EXECUTED? 



A2. WHAT WILL BE THE VALUE OF COUNT AFTER ALL ITERATIONS HAVE 
BEEN EXECUTED? 



BEGIN JOB B ; 
REAL CTR ; 
TASK TX ; 

DO 
BEGIN 

RUN X [ TX ] ; 
CTR := CTR + 1 ; 
END; 
UNTIL TX IS COMPLETEDOK OR CTR GTR 3 ; 

END JOB ; 

Bl. WHAT IS THE MINIMUM NUMBER OF TIMES THAT THE LOOP WILL BE 
EXECUTED? 

B2. WHAT IS THE MAXIMUM NUMBER OF TIMES THAT THE LOOP WILL BE 
EXECUTED? 
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EXPRESSIONS, ITERATIONS, and FUNCTIONS 

Unit 3 

String Functions 

OBJECTIVE 

Construct statements using string functions. 

PURPOSE 

Many times it is useful to break apart messages to determine the exact flow 
desired, get the data to pass to particular task, or to find out system 
information such as the time or date. 

RESOURCES 

a. Student Materials Section 3 

Unit 3 

b. A Series WFL Reference Manual Section 7 



KEY WORDS 



TAKE 

DROP 

HEAD 

TAIL 

ACCEPT 

STRING 

TIMEDATE 

SYSTEM 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILrnES 

SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



LEARNING SEQUENCE 

A String function is a prewritten procedure provided for the programmer which 
accepts one or more arguments and returns a string value. The string returned 
may be used anywhere a string expression may be used. The six strmg functions 
are: TAKE, DROP, HEAD, TAIL. ACCEPT, and STRING. 

The TAKE and DROP functions are used to extract a portion of a given string. 
The result is a string whose value is some number of characters from the beginning 
or end of another string. The TAKE function returns a new string whose value is 
a copy of the first indicated number of characters taken from the target string. 
The DROP function returns a new string whose value is a copy of the characters 
remaining in the target string after the first indicated number of characters have 
been discarded. 



• S := "ABCDEFGHIJ" ; 

• T := TAKE(S,5) ; 

• T := DR0P{"ABCDEFG",2) ; 



% RESULTS IN T = "ABODE" 
% RESULTS IN T = "CDEFG" 



• S := "OPQRST" ; 

• T := DR0P{S.4) & TAKE(S,2) ; 



% RESULTS IN T = "STOP" 



• R := "ABCDEFGHIJK" ; 

• U := DROP(TAKE{R.9) ,7) ; 



% RESULTS IN U = "HI" 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTHJTffiS 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



LEARNING SEQUENCE 

The HEAD and TAIL functions extract a substring from a given string based upon a 
character set. The HEAD function returns a new string consisting of a copy of all 
the leading characters in the string that belong to a given character set. The 
TAIL function returns a new string consisting of a copy of all the characters in the 
string that remains after the removal of all the leading characters that belong to 
the character set. 



SI := "ABCDEF" ; 
T := HEAD(S1,"A12B3") ; 
U := TA1L(S1,"A12B3") ; 



% RESULTS IN T = "AB" 
% RESULTS IN U= "CDEF" 



In the following example, the TAIL function is performed first to supply a string 
expression to the HEAD function. The effect of the tail function using the "not 
character set" is to search for the first valid character and return the tail of the 
string from that point. The whole statement serves to strip leading and trailing 
garbage from an input statement. 



• S2 := "AB122784XYZ" ; 

• V := HEAD(TAIL(S2, NOT "0123456789"), "0123456789") ; 

% RESULTS IN V = "122784" 



Is exactly the same as the following two statements: 

• V := TA1L(S2, NOT "0123456789"); 

• V := HEAD(V, "0123456789"); 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



LEARNING SEQUENCE 

The ACCEPT function displays a message on the system ODT and waits for a 
reply. The job is suspended until the operator responds with an ODT command 
(mix number AX message). The message entered by the operator will be a string. 

• STl := ACCEPTC'ENTER CURRENT ACCOUNTING PERIOD") ; 

The STRING function converts an integer into an equivalent string '•^P.^esentation. 
The absolute value of the integer is converted to a string of the specified length. 
If an asterisk is used in place of specifying a length, the string returned will be 
precisely the number of digits needed to represent the integer. 



• II := 432 ; 

• 12 := 768 ; 

• STl := STRING(I1,5) ; 

• ST2 := STRlNGai,2) ; 

• ST3 := STRING(.I2,4) ; 

• ST4 := STRING(I2,*) ; 



% RESULTS IN STl = "00432" 

% RESULTS IN ST2 = "32" 

rv T3COT1T TC TM CTl = "0?6R" 

% RESULTS IN ST4 = "768" 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



LEARNING SEQUENCE 

The TIMED ATE function returns the system time or date in various forms that may 
be used in the WFL job. It could be used for communication with the operator or 
as part of a file name. 



• STRl := TIMEDATE (HHMMSS) ; 

• 82 := TIMEDATE (YYDDD) ; 

• STR3 := TIMEDATE (MMDDYY) ; 

• 32 := TIMEDATE (YYYYDDD) ; 

• S3 := TIMEDATE (MMDDYYYY) ; 

The SYSTEM function allows access to the system serial number, type, and MCP 
level. This may be useful if the flow of a job changes depending on the type of 
system it is executing on. 

• STR3 := SYSTEM (SERIALNUMBER) ; 

• STRl := SYSTEM (TYPE) ; 

• S2 := SYSTEM (MCPLEVEL) ; 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



PRACTICE EXERCISE 



In the space provided, write the letter of the description that best defines the 
string function. 



1. ACCEPT FUNCTION 



Returns a string whose 
value is a substring from 
a given string based upon 
a character set. 



2. STRING FUNCTION 



b. Returns a string entered 
by the operator. 



3. TAKE/DROP FUNCTIONS 



c. Converts an integer 
expression into a string 
expression. 



4. HEAD/TAIL FUNCTIONS 



Returns a string whose 
value is some number 
of characters from the 
beginning or end of 
another string expression. 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILmES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 3: String Functions 



PRACTICE EXERCISE (continued) 

Study the WFL job below, and then determine the values of the strings just before 
the end of job. 



BEGIN JOB C ; 
STRING FYLE, SI, S2, S3, S4, S5 ; 

FYLE := "ACCTS/PAYABLE/HISTORY" ; 



SI 


= FYLE/"1984" ; 


SI 


S2 


:= TAKE{FYLE, 4) ; 


S2 


S3 


:= DROP(FYLE, 6) ; 


S3 


84 


:= HEAD{FYLE, ALPHA) ; 


S4 


S5 


:= TAIL{S1, NOT "1234567890") ; 


85 


END 


JOB 
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EXPRESSIONS, ITERATIONS, and FUNCTIONS 

Unit 4 

Numeric Functions 

OBJECTIVE 

Construct statements using numeric functions. 

PURPOSE 

Since the only way to receive data from the operator is in the form of 
string data, if some of that information is to be used in arithmetic 
computation, a transformation of this data must occur. Numeric functions 
provide the transformation capability. 

RESOURCES 

a. Student Materials Section 3 

Unit 4 

b. A Series WFL Reference Manual Section 7 



KEY WORDS 

LENGTH 

HEX 

OCTAL 

DECIMAL 

INTEGER 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 4: Numeric Functions 



LEARNING SEQUENCE 

Numeric functions are prewritten procedures provided for the programmer which 
may accept a string or real expression and returns a real or integer value. 

The LENGTH function returns the number of characters in a given string as a real 
primary. 

The HEX. OCTAL, and DECIMAL functions are used to convert a string containing 
either a hex. octal, or decimal number to its equivalent real value. A run time 
error will occur if the string contains invalid characters for the type of field being 
converted. 

The INTEGER function returns the integer portion of a real expression. Since large 
system WFL supports real and integer arithmetic, the INTEGER function is used to 
convert a real expression to an integer. 



• SI := "25" ; % ORIGINAL STRING VALUE 

• Rl := LENGTH("ABCDWXYZ") ; % RESULTS IN Rl = 8 

• R2 := HEXC'IF") ; % RESULTS IN R2 = 31 

• R3 := OCTAL{"37") ; % RESULTS IN R3 = 31 

• R4 := DECIMAL(Sl) ; % RESULTS IN R4 = 25 

• 15 := INTEGER(MYSELF(ACCUMPROCTIME)); 

% RESULTS IN 15 = NUMBER 

% OF WHOLE SECONDS OF 

% PROCESSOR TIME FOR A 

% JOB TASK. 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 4: Numeric Functions 



LEARNING SEQUENCE 

• SAMPLE JOB USING STRINGS AND FUNCTIONS 

00001000 BEGIN JOB PARSE ; 

00001100 STRING SI, S2 ; 

00001200 SI := ACCEPT ("ENTER STRING TO BE PARSED") ; 

00001300 SI := TAIL (SI, " ") ; 

00001400 WHILE LENGTH(Sl) > DO 

00001500 BEGIN 

00001600 S2 := HEAD (SI, ALPHA) ; 

00001700 DISPLAY S2 ; 

00001800 SI := TAIL(S1, ALPHA) ; 

00001900 SI := TAIL(S1, " ") ; 

00002000 END; 

00002100 END JOB 

INPUT: THIS IS A 6 TOKEN STRING 

DISPLAYS: THIS 

IS 

A 

6 

TOKEN 

STRING 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 4: Numeric Functions 



PRACTICE EXERCISE 

A. In the space provided, write the letter of the description that best defines the 
integer function. 



1. HEX FUNCTION 



a. Returns the number of characters 
within a string expression. 



2. DECIMAL FUNCTION 



Returns the real expression 
without a fractional part. 



3. LENGTH FUNCTION 



Returns a real primary equal to 
the BASE 8 number represented by 
the value of the string 
expression. 



4. INTEGER FUNCTION 



Returns a real primary equal to 
the BASE 16 number represented 
by the value of the string 
expression. 



5. OCTAL FUNCTION 



Returns a real primary equal to 
the BASE 10 number represented 
by the value of the 
string expression. 
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EXPRESSIONS, ITERATIONS, and FUNCTIONS 

Unit 5 

Job Attributes 



OBJECTIVES 

Construct job attribute statements 

PURPOSE 

To further the understanding of attributes, this unit covers some of the 
attributes unique to the job task and others that may have unexpected 
influence on the results. 

RESOURCES 

a. Student Materials Section 3 

Unit 5 

b. A Series WFL Reference Manual Section 3 

KEY WORDS 

job attribute specification 
job attribute assignment 
class specification 
family specification 
fetch specification 
starttime specification 
usercode specification 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 5: Job Attributes 



LEARNING SEQUENCE 

The job attribute specification is used to assign attributes to the job task. There 
are six separate categories that fall under the job attribute specification. 

The job attribute assignment allows the assignment of task attributes to the job 

itself. 

The class specification allows the job to be assigned to a particular class or job 

queue. 

The family specification allows the job to equate a target family with a substitute 

family. 

The fetch specification causes the job to wait for operator action before beginm^^^^^ 
execution. When the job is initiated, the operator is informed that the ]ob ^ntains 
rPETcS message. The message may be displayed using the ODT command ( PF ). 
The job will start after the ODT command ( OK ) is used. 

The starttime specification sets limitations on the job as to when it may start 
execuU^. The job. when started, will be placed in the appropriate queue and 
await the designated time before starting. 

The usercode specification allows the usercode and password to be set. This is 
retained across a Halt/Load. 



• BEGIN JOB BACKUP ; 
PRIORITY = 7 ; 
QUEUE = 30 ; 

FAMILY DISK = SYSTEMS OTHERWISE DISK ; 
FETCH = "MOUNT 2 SCRATCH TAPES FOR BACKUP" ; 
STARTTIME = 20:00 ON 02/01/85 ; 
USERCODE = PRODUCTION/MYPASS ; 
COPY INVENTORY/= FROM INVENT TO INVENTBKUP(KIND=TAPE) ; 

END JOB 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 5: Job Attributes 

PRACTICE EXERCISE 

Write the job attribute section of a Worit Flow job that does the following: 

1. Informs the operator that the user disi< PAYROLL should be 
mounted for this job. 

2. Sets the priority of the job to 8. 

3. Establishes the usercode/password for this job as PAY/ONE. 

4. Restricts the processing time to a maximum of three minutes. 

5. Starts the job at one minute after midnight. 

BEGIN JOB MYJOB ; 



END JOB 
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EXPRESSIONS. ITERATIONS, and FUNCTIONS 

Unit 6 

Job Parameters 

OBJECTIVE 

Construct job initiating statements that pass parameters. 

PURPOSE 

RESOURCES 

a. Student Materials Section 3 

Unit 6 

b. A Series WFL Reference Manual Section 3 



KEY WORDS 

parameters 
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SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 
UNIT 6: Job Parameters 



LEARNING SEQUENCE 



When starting a WFL job using the ODT command ( START ) it is possible to pass 
parameters, or values to the job. Whatever parameters are needed must first be 
specified within the BEGIN JOB statement. The type and name are specified and 
must be either REAL. INTEGER, BOOLEAN, or STRING. The parameters m the 
START command are checked against the parameter list in the job and must match 
bv type and number. The variable declared as a job parameter may only be used 
as an expression. It may not be used on the left side of an assignment operator. 



START PARAMEXAMPLEC'PAYROLL ON PAYPACK") 

BEGIN JOB PARAMEXAMPLE (STRING S) ; 

RUN # S ; 
END JOB; 

START MYJOB {"12/31/84", 2) 

BEGIN JOB MYJOB (STRING SI, REAL Rl) ; 
STARTTIME = 2:00 ON 01/01/85 ; 
TASK Tl ; 
RUN MYPROG [ Tl ] ; 

VALUE = Rl ; 
IF Tl IS COMPLETEDOK 

THEN DISPLAY "MYPROG REPORT FOR " & SI 
ELSE DISPLAY "MYPROG FAILED" ; 
END JOB 
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SECTION 3: EXPRESSIONS, ITERATIONS, and FUNCTIONS 
UNIT 6: Job Parameters 



PRACTICE EXERCISE 



Write a Work Flow job that will compile a COBOL program. Be able to supply 
the object name and source name at START time. Also include the START 
statement that would be used to compile OBJ/PROGB using SRC/PROGB as the 
source disk file. 



BEGIN JOB 



END JOB 



START 



B. Take the job written above and test it in the lab, using the 

source CL ASS/PROG AOLD, and an object file name of your choice. 
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LAB : 3-1 



Write and execute a Work Flow job that will accept a person's name after the job 
has started. It will display the lengths of the first and last name separately, no 
matter how many spaces are included before, after, or in between the names. 
SHOW THE INSTRUCTOR THE RESULTS. 



SAMPLE INPUT: 

bbSUSANbbbWILSONbbbb % b MEANS A BLANK OR SPACE 

SAMPLE OUTPUT: 

SUSAN CONTAINS 5 CHARACTERS 
WILSON CONTAINS 6 CHARACTERS 



Modify the job just created to accept a person's name as part of the start 
statement. SHOW THE INSTRUCTOR THE RESULTS. 
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SECTION 3: EXPRESSIONS. ITERATIONS, and FUNCTIONS 

LAB : 3-2 

Write a WFL job which includes the steps below: 

1. Accepts a person's name from the ODT (or a CANOE 
terminal), then displays the name in reverse order. 

2. Accepts a number from the ODT (or a CANDE terminal), 
then displays that number squared. Parse the input to 
make sure the data is valid input. 

3 Each of the following strings must be included in your 

lob Extract and display the string "GEORGE WASHINGTON" using 
each of the functions TAKE. DROP, HEAD, and TAIL at least once. 



STRl 
STR2 
STR3 
STR4 



= "GEORACF" ; 
= "XYGE WA" ; 
= "123SH4IN" ; 
= "GPRSTONEF" ; 



SHOW THE INSTRUCTOR THE RESULTS. 
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LAB : 3-3 

Additional labs to be supplied by the instructor. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTTLTnES 



SUBROUTINES, CONTROL, and ERROR HANDLING 



SECTION OBJECTIVE 

Construct a WFL job using subroutines, advanced task control statements, and 
error handling techniques. 

PURPOSE 

To provide more efficient code generation, subroutines allow duplicate code 
to be discarded. With this in mind, they also allow error handling 
statements to be grouped together. 

UNIT OBJECTIVES 

• Construct a subroutine to execute a section of repetitive 
code. 

• Construct communication statements to instruct an 
operator during the job. 

• Construct statements for advanced task control. 

• Construct a job using Global Files or Global Data Decks. 

• Identify the functions of the WFL $ options. 
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SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 1 
Subroutines 

OBJECTIVE 

Construct a subroutine to execute a section of repetitive code. 

PURPOSE 

To keep a repetitive job simple, WFL has the capability of executing a 
section of code just by identifying it and calling it. 

RESOURCES 

a. Student Materials Section 4 

Unit 1 

b A Series WFL Reference Manual Section 5 

Section 6 

KEY WORDS 

subroutine 

local variables 

global variables 

RETURN 

STOP 

CALL-BY-NAME 

CALL-BY-VALUE 



4-3 



A SEBIES AUD B 5/6/7008 WOBKFLOW AND UnLTTIES 

SECTION 4: SUBBOUTINESw COMTBQL. and E8XOR HANDlUNG 

Unit 1: SuhnHitines 



LEARNING SEQUENCE 



A subroutine is a construct that represents a single statement or group of 
statements identified by an identifier. The sutiroutine identifier must first be 
defined in the declaration part of the job along with the executable statements 
that belong to it. Afterwards, any reference to that subroutine identifier is 
interpreted as a command to execute the statements associated with that identifier. 
Therefore, a subroutine is a shortluuid method of repeating the same WFL 
statements several times. 



00000100 BEGIN JOB THISJQB ; 
00000200 STRING STRl ; 
00000300 SUBROUTINE SUBl ; 
BEGIN 

RUN PROG/A ; 
PILE PATFILE = t STRl/PATIENre ; 
FILE DRFILE ( TITLE = « STRl/DOCTORS ) ; 
PILE CHARGES { TITLE = « STRl/CHARGES ) ; 
RUN PROG/B : 

riLE PATFILE = # STRI/PATIENTS ; 
END ; 

;= "HOSPITALl" ; 



00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 STRl 
00001300 SUBl 
00001400 STRl 
00001500 SUBl 
00001600 STRl 
00001700 SUBl 
00001800 END JOB ; 



= "H0SPrrAL2" 



:= "HOSPITALS' 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDUNG 

Unit 1: Subroutines 



LEARNING SEQUENCE 

Some declarations may occur within subroutines as well as those at the job level. 
All declarations made in the currently executing subroutine are called local 
variables. It is possible that variables declared in the calling routme may be 
accessible. Those variables that are accessible are called global variables with 
reference to the currently executing routine. This means that all variables 
declared at the job level are global to any subroutine and local to the job itseii. 



00000100 BEGIN JOB EXAMPLE2 ; 

00000200 SUBROUTINE SUB2 ; 

00000300 BEGIN 

00000400 INTEGER I ; 

00000500 STRING STl ; 

00000600 WHILE I LSS 7 DO 

00000700 BEGIN 

00000800 STl := STRINGU,*) ; 

00000900 RUN APROG ; 



uuOuxOOu 
00001100 
00001200 
00001300 



CTT p TXT-PA I TTTT F = AR/ f STl ) 

I := I + 1 ; 
END ; 
END ; 
00001400 SUB2 ; 
00001500 RUN BPROG ; 
00001600 SUB2 ; 
00001700 RUN BPROG ; 
00001800 END JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTnJTIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 1: Subroutines 



LEARNING SEQUENCE 



The RETURN statement is used for early termination of the subroutine and returns 
control to the statement following the initiation of the subroutine. 



00000100 
00000150 
00000200 
00000250 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001250 
00001300 
00001350 
00001400 
00001450 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002250 
00002300 



BEGIN JOB SUBEXAMPLE3 ; 

TASK Tl ; 

SUBROUTINE SUBl ; 
BEGIN 
TASK T2 ; 

RUN PAYROLL/REPORTl [ T2 ] ; 
IF T2 IS COMPLETEDOK 
AND 
FILE PAYROLL/NEWMASTER IS RESIDENT 
THEN RETURN ; 
RUN PAYR0LL/REP0RT2 ; 
END ; 

RUN PAYRCLL/UPDTWK [ Tl ] ; 

SUBl ; 

IF Tl IS COMPLETEDOK 
AND 
FILE PAYROLL/MNTH IS RESIDENT 
THEN 
BEGIN 

RUN PAYROLL/UPDTMNTH ; 
SUBl ; 
END ; 

END JOB 



4-6 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDUNG 

Unit 1: Subroutines 



LEARNING SEQUENCE 

The STOP statement allows the early termination of an asynchronous subroutine or 
the iob itself. Both of these will be terminated normally if no dependent tasks are 
currently executing. If there are tasks executing, the parent and its dependent 
task are terminated abnormally. An optional string expression is available for 
displaying a message prior to termination. 



00000100 

00000150 

00000200 

00000250 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001250 

00001300 

00001350 

00001400 

00001450 

00001500 

00001600 

00001700 

00001800 

00001850 

00001900 

00001950 

00002000 

00002100 

00002200 

00002250 

00002300 



BEGIN JOB SUBEXAMPLE3 ; 
TASK Tl ; 

SUBROUTINE SUBl ; 
BEGIN 
TASK T2 ; 

RUN PAYROLL/REPORTl [ T2 ] ; 
IF T2 IS COMPLETEDOK 
AND 
FILE PAYROLL/NEWMASTER IS RESIDENT 

THEN STOP 

ELSE RUN PAYR0LL/REP0RT2 ; 

END ; 
RUN PAYROLL/UPDTWK [ Tl ] ; 
PROCESS SUBl ; 

IF Tl IS COMPLETEDOK 
AND 
FILE PAYROLL/MNTH IS RESIDENT 

THEN 

STOP "FIRST RUN OK" ; 
ELSE 

BEGIN 

RUN PAYROLL/UPDTWKBKUP ; 

SUBl ; 
END ; 

END JOB 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTnJTIES 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDUNG 

Unit 1: Subroutines 



LEARNING SEQUENCE 



The use of parameters when calling a subroutine operate in a similar manner to 
those covered in the job. When a value is passed to a subroutine, that value may 
be treated in one or two ways. The first, CALL-BY-NAME, is used when the 
parameter is only a link to the original area in memory set aside for the variable 
being passed. Therefore, when the parameter value is changed in the subroutine, it 
is actually changing the value of the original variable. 



00000100 

00000200 

00000250 

00000300 

00000400 

00000500 

00000550 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001250 

00001300 

00001325 

00001350 

00001375 

00001400 

00001450 

00001500 

00001600 

00001650 

00001700 

00001750 

00001800 

00001900 

00001950 

00002000 



BEGIN JOB ROLLMONTH ; 
REAL DATEl, DATE2 ; 

SUBROUTINE GETDATE ( REAL R, STRING TEXT ) ; 
BEGIN 

STRING S ; 

WHILE R LEQ DO 
BEGIN 

S := ACCEPT ( TEXT ) ; 
S := TAIL( S, NOT "0123456789" ) ; 
S := HEAD {S, "0123456789") ; 
R := DECIMAL ( S ) ; 
END; 

END; 



GETDATE ( DATEl, "ENTER CURRENT MONTH END DATE" ) ; 

RUN A/B ; 

VALUE = DATEl ; 

GETDATE ( DATE2, "ENTER NEXT MONTH END DATE" ) ; 

RUN A/C ; 

VALUE = DATE2 ; 

END JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTHJTIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 1: Subroutines 



LEARNING SEQUENCE 

The second, CALL-BY-VALUE, is used when no link exists between the parameter 
and the original area of memory where the value is stored. The parameter is 
given the value of the original variable; but when the parameter value changes, it 
does not modify the original variable contents. 



00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 



BEGIN JOB SQUARES ; 
REAL X := 4, Y := 7, Z ; 

SUBROUTINE SQUAREIT ( REAL R VALUE, REAL S ) ; 
BEGIN % R = 4, S = 

REAL T ; 

R := R * R ; 

T := R ; 

S := T + Y ; 
END; 



SUBROUTINE SQUAREITAGAIN ( REAL 1 
BEGIN % R = 7, S 

REAL T ; 

R := R * R ; 

T := R ; 

S := T + X ; 
END; 



, REAL S 
23 



SQUAREIT { X , Z ) ; 
SQUAREITAGAIN ( Y , Z ) ; 
END JOB 



% X = 

% X = 

% X = 

% X = 



4 , Y 

4 . Y 

4 , Y 

4 . Y 



7 , Z 

7 , Z 

7 , Z 

49 . Z 




23 
23 
53 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTHJTIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 1: Subroutines 



PRACTICE EXERCISE 

Study the WFL job below, and then determine the values of the variables just 
before the end of job. 



BEGIN JOB D ; 

piTAl O V V . 

SUBROUTINE ADDER(REAL A, REAL B VALUE) ; 
BEGIN 



C := A + B ; 


C = A = B = 


A := B + C ; 


A = B = C = 


B := A + C ; 


B = A = C = 


% < 


What are the values of the identifiers at this po 


END ; 




X := 4 ; 




Y := 2 ; 




C := 3 ; 




ADDER(X, Y) ; 




END JOB 






ANSWERS : 




C = 




X = 




Y = 




A = 




B = 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTIUnES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 1: Subroutines 

PRACTICE EXERCISE (continued) 

Write a WFL job that contains a subroutine that runs REPORT/ ALL. Within the 
main body of the job include the following: 

1. Run PAY/ONE on PAYPACK. 

2. Run REPORT/ ALL. 

3. Run PAY/TWO on PAYPACK. 

4. If the file PAY/MASTER is on PAYPACK, run REPORT/ALL. 

5. Run PAY/THREE. 

6. If PAY/THREE completes to a normal end of task, run REPORT/ALL; 
otherwise, run PAY/FOUR. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTIUTIES 



SUBROUTINES. CONTROL, and ERROR HANDLING 

Unit 2 
Communication with the Operator 

OBJECTIVE 

Construct communication statements to instruct an operator during the job. 

PURPOSE 

Operator communication is very important to the proper operation of any 
system This is meant as a review of those means of communication already 
discussed and as an additional means of providing instructions to an operator 
only if the operator needs them. 

RESOURCES 

a. Student Materials Section 4 

Unit 2 

b A Series WFL Reference Manual Section 5 

Section 6 

KEY WORDS 

fetch specification 

DISPLAY 

WAIT 

ABORT 

STOP 

INSTRUCTION 

IB < number > 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTHJTffiS 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 2: Communication with the Operator 



LEARNING SEQUENCE 

At this point, many statements have been covered to display messages to an 
operator before the job starts, during the job, and at termination. 



• PRIOR TO JOB EXECUTION 

- The fetch specification causes the job to wait for operator action 
before beginning execution. When the job is initiated, the operator is 
informed that the job contains a FETCH message. The message may 
be displayed using the ODT command ( PF ). The job will start after 
the ODT command ( OK ) is used. 

• DURING JOB EXECUTION 

- The DISPLAY statement displays a string expression on the ODT. 

- The WAIT statement causes the job tasi< to suspend execution until a 
time period elapses in seconds or the OK ODT command is entered. 
A message can be displayed along with the wait. 

- The ACCEPT statement will display a message to an operator and 
suspend the task until the operator enters a response. 

• DURING JOB TERMINATION 

- The ABORT statement causes the job task to be terminated 
abnormally. The STOP statement causes the job task to terminate 
normally. In both statements, optionally a message will be displayed 
prior to the termination. 

- The STOP statement allows the early termination of an asynchronous 
subroutine or the job itself. Both of these will be terminated 
normally if no dependent tasks are currently executing. If there are 
tasks executing, the parent and its dependent task are terminated 
abnormally. An optional string expression is available for displaying a 
message prior to termination. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 2: Communication with the Operator 



LEARNING SEQUENCE 

The INSTRUCTION statement allows the WFL programmer to provide indepth 
instructions to the operator. Up to 63 separate instructions may be provided, each 
with a maximum length of 1500 characters. These instructions will be displayed 
only if the operator enters the ODT command (<mix #> IB < number> ). This 
command is not available in CANDE. 



OOOOOIOOBEGIN JOB COMPILE/TESTS ; 

00000200 FETCH = "INSTRUCTIONS ARE AVAILABLE" ; 

00000300 INSTRUCTION 1 

00000310 TESTTAPE IS IN TAPE RACK 3 ; 

00000400 COPY & COMPARE = FROM TESTTAPE TO USERS(PACK) ; 

00000500 INSTRUCTION 2 

00000510 IF THE COPY FROM TESTTAPE TO USERS FAILS, 

00000520 PLEASE LEAVE A NOTE FOR JK ; 

00000700 COMPILE TEST/17 ALGOL ; 

00000800 ALGOL FILE CARD (TITLE = USERS/FILE 1, KIND = DISK) ; 

00000900 FILE INP (TITLE = USERS/INP/TESTFILE) ; 

00001000 IF FILE TEST/17 ISNT RESIDENT THEN ABORT "BAD COMPILE"; 

OOOOllOOEND JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTIUnES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDUNG 
Unit 2: Communication with the Operator 

PRACTICE EXERCISE 

Write a WFL job that incorporates the following functions: 

1. Run PROGA with a priority of 70 and task identifier T3. 

2. Display a message indicating whether PROGA completed or not. 

3. If PROGA failed, abort the job with the message "JOB ABORTED". 
Otherwise, send a message to the ODT that it completed ok and wait 
for an operator response. 

4. Display a message to the operator that instructions are available 
prior to the start of the job. 

5. The instructions are: 

A. PROGA is on the USERS pack. 

B. If the job aborts, run job BKUP. 
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SUBROUTINES. CONTROL, and ERROR HANDLING 

Unit 3 
Exception Handling and Task Control 

OBJECTIVE 

Construct statements for advanced task control. 

PURPOSE 

Under certain conditions, the task control statements learned to this point 
may not be the most effective. WFL provides the ON statement to handle 
more difficult error conditions and flows. 

RESOURCES 

a. Student Materials iTnlt^^" 3 

b. A Series WFL Reference Manual Section 5 

Section 6 

KEY WORDS 

ON TASKFAULT 

AUTORECOVERY 

ON RESTART 

OPTION 

BDBASE 

BDNAME 

FAULT 

DSED 

ARRAYS 

BASE 

CODE 

FILES 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILrnES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 



A task fault occurs when any task of the job does not terminate normally. This 
can happen either because the task was DS'ed or, if the task was a compilation, it 
terminated finding syntax errors in the program source file. The ON TASKFAULT 
statement allows the user to specify that the job be terminated in the event of 
any task failure. The ON TASKFAULT alone disables the condition so that an 
abnormal task termination will not have any effect on the job. 



• ON TASKFAULT ; 

• ON TASKFAULT, < statement > ; 

• ON TASKFAULT, ABORT "TASK HAS FAILED" ; 



00000100 BEGIN JOB TFl ; 

00000200 RUN A ; 

00000300 ON TASKFAULT, DISPLAY "TFl" ; 

00000400 RUN B ; 

00000500 RUN C ; 

00000600 ON TASKFAULT, DISPLAY "TF2" ; 

00000700 RUN D ; 

00000800 ON TASKFAULT ; 

00000900 RUN E ; 

00001000 END JOB 



4-18 



A SERffiS AND B 5/6/7000 WORKFLOW AND UTILTTIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 

In this example, the ON TASKFAULT statement in line 900 resets the capability. 
Therefore, if a failure occurs in line 700 or 800. '•TF2" may or may not be 
displayed since these are process statements and control is passed to Ime 900 as 
soon as the tasks are initiated. 



00000100 BEGIN JOB TFl ; 

00000200 RUN A ; 

00000300 ON TASKFAULT, DISPLAY "TFl" ; 

00000400 PROCESS RUN B ; 

00000500 RUN C ; 

00000600 ON TASKFAULT. DISPLAY "TF2" ; 

00000700 PROCESS RUN D ; 

Onnnnann nonr'CCQ R TIM F ■ 

00000900 ON TASKFAULT ; 
00001100 END JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTnJTIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 



There are times when the operator of a system has no control over when the 
system will HALT/LOAD. Power outages and fluctuations, software bugs and 
hardware failures may all cause this situation. WFL provides for these 
circumstances if the system option AUTORECOVERY is set. The job will begin 
execution at the last null mix unless the statement ON RESTART is used. The ON 
RESTART statement provides the capability of controlling the restart point. 



• ON RESTART ; 

• ON RESTART, < statement > ; 

• ON RESTART, ABORT "TASK HAS FAILED" ; 



00000100 BEGIN JOB TFl ; 

00000200 RUN A ; 

00000300 ON RESTART, DISPLAY "TRl" ; 

00000400 RUN B ; 

00000500 RUN C ; 

00000600 ON RESTART, DISPLAY "TR2" ; 

00000700 RUN D ; 

00000800 ON RESTART ; 

00000900 RUN E ; 

00001000 END JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITffiS 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 

In this example, the ON RESTART statement in line 900 resets the capability. 
Therefore, if a failure occurs in line 700 or 800, "TR2" may or may not be 
displayed since these are process statements and control is passed to line 900 as 
soon as the tasks are initiated. 



00000100 BEGIN JOB TFl ; 

00000200 RUN A ; 

00000300 ON RESTART, DISPLAY "TRl" ; 

00000400 PROCESS RUN B ; 

00000500 RUN C ; 

00000600 ON RESTART, DISPLAY "TR2" ; 

00000700 PROCESS RUN D ; 

00000800 PROCESS RUN E ; 

00000900 ON RESTART ; 

00001000 RUN F ; 

00001100 END JOB 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 



In this example, the subroutine is used for restarting the job. 



00000100 BEGIN JOB RESTARTIT ; 

00000200 TASK Tl ; 

00000300 SUBROUTINE RESTARTSUB ( REAL RESTARTCODE VALUE ); 

00000400 CASE RESTARTCODE OF 

00000500 BEGIN 

00000600 (0) : RUN RESTART ; 

00000700 (1) : RUN RESTARTl ; 

00000800 (2) : RUN RESTART2 ; 

00000900 ELSE : BEGIN 

00001000 START RESTARTIT ; 

00001100 ABORT "INVALID VALUE, JOB RESTARTED" ; 

00001200 END ; 

00001000 END; 

00001100 ON RESTART, RESTARTSUB{ ) ; 

00001200 RUN PROG ; 

00001300 ON RESTART, RESTARTSUB( 1 ) ; 

00001400 RUN PROGl ; 

00001500 ON RESTART, RESTARTSUB( 2 ) ; 

00001600 RUN PR0G2 ; 

00001700 END JOB 
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SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



LEARNING SEQUENCE 

The OPTION attribute is used to set options for the process and allows additional 
capabilities when a fault occurs. 

00000100 BEGIN JOB OPTIONEXAMPLE ; 

00000200 OPTION = ( BDBASE ) ; 

00000300 BDNAME = PRODUCTION/WFLJOB ; 

00000400 RUN PRODUCTION/PROGl ; 

00000500 OPTION = { FAULT. DSED. ARRAYS, BASE, CODE, FILES ) ; 

00000600 FILE INP ( TITLE = PRODUCTION/IN ) ; 

00000700 RUN PR0DUCTI0N/PR0G2 ; 

00000800 FILE FILEOUT ( TITLE = PRODUCTION/OUT } ; 

00000900 END JOB 

If PRODUCTION/PROGl has an internal failure or if it is externally DSed, a 
program dump will occur automatically. The stack, arrays, base of the stack code, 
and files pertaining to that execution of the program will be inciuded in tne dump. 

00001000 BEGIN JOB 0PTI0NEXAMPLE2 ; 

nnnnunn RTIM P A YRDT.L/PROGl : 

00001200 OPTION = (BDBASE) ; 

00001300 BDNAME = PAYROLL/CHKS ; 

00001400 RUN PAYR0LL/PR0G2 ; 

00001500 END JOB 

Previously BDBASE had to be used in conjunction with the attribute BDNAME. 
The use of these attributes allowed the WFL programmer to modify the name of a 
printer backup file. In the first example, it will alter the names for the ]ob and 
?n the secon/ example only the names for the associated task. With re ease level 
3.6, the entire printing subsystem has been changed and a closer look at these 
attributes occurs in section 5 of the student materials. 
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SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 3: Exception Handling and Task Control 



PRACTICE EXERCISE 



In the space provided, write the letter of the description that best defines the 
statement. 



1. ON RESTART 



a. Causes a program dump to occur if 

kiicic la ail iiiicMiai lauiL. 



2. ON TASKFAULT 



b. Causes the flow to be passed to a 
statement when a fault occurs. 



3. FAULT 



c. Causes a descendant stack for printer 
backup files to be initiated as a job. 



4. BDNAME 



Provides the directory name for 
printer backup files. 



5. DSHD 



Causes a particular statement to be 
executed after a HALT/LOAD. 



6. BDBASE 



f. Causes a program dump when 
terminated externally. 
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SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 4 
Global Files and Global Data Decks 

OBJECTIVE 

Construct a job using Global Files or Global Data Decks. 

PURPOSE 

In some circumstances, it would be useful to have control over files from 
within the WFL job. This unit deals with the control that is available from 
within a WFL job. 



RESOURCES 

a. Student Materials 

b. A Series WFL Reference Manual 



Section 4 

Unit 4 

Section 5 

Section 6 



KEY WORDS 



Global Files 

OPEN 

CRUNCH 

LOCK 

PURGE 

RELEASE 

REWIND 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITffiS 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 4: Global Files and Global Data Decks 



LEARNING SEQUENCE 



WFL has the capability of dealing with files in many ways. As presented in 
Section 1, WFL may copy, remove, or change file names and security. Global Files 
allow the WFL programmer to do everything with physical files that a program can 
do except read and write to them. Global Files may only be declared in the 
declaration section of the job, not in a subroutine. These files may have certain 
file attributes assigned to them and then the whole file may be equated to a 
program's internal files. This allows different programs to have different internal 
file names and still use the same file without removing the physical file structure. 
Global Files have several statements that apply to them. 



• OPEN 

• CRUNCH 

• LOCK 

• PURGE 



• REWIND 



Opens the global file according to MYUSE attribute. 

Intended for disk and pack, closes the file and returns 
the unused space at the end of the file to the system. 
A crunched file may not be expanded. 

Intended for disk, pack and tape, closes the file and 
makes disk files permanent. Tape files are rewound and 
made unaccessible without operator action. 



Intended for disk, pack and tape, closes the file and 

rem.oves disk files from, the system. 

scratch. 






RELEASE Intended for all files, closes the file, disassociates the 

logical from the physical file, and returns the buffers. 
This is the system default. CAUTION: This will not 
save newly created files unless PROTECTION is set to 
save. 



Intended for disk or tape, closes the file with retention, 
which means that the physical file is still assigned. For 
disk, the record pointer is adjusted to the first record. 
For tape, the tape is rewound. 
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SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 4: Global Files and Global Data Decks 

LEARNING SEQUENCE 

00000100 BEGIN JOB GLOBALl ; 

00000200 FILE GLOBEL (KIND = DISK. TITLE = USER/GLOBAL/DATA) ; 

00000300 RUN USER/PROGl ; 

00000400 FILE OUTP := GLOBEL ; % ASSIGNED AS OUTPUT 

00000500 IF GLOBEL IS RESIDENT 

00000600 THEN RUN USER/PROG/REPORT ; 

00000700 FILE INP := GLOBEL ; % ASSIGNED AS INPUT 

00000800 END JOB 

Global Files may have many different and useful purposes such as described below: 

• CREATE MULTIFILE TAPES 

- Write to a data tape from many programs without closing or rewinding 

• INCREASE SECURITY BY MATCHING WFL JOBS TO COBOL PROGRAMS 

- Open files in WFL, read and write in COBOL 

• PASS VALUES BETWEEN PROGRAMS 

- As the above example 

• PURGE TAPES 

- Open the file from WFL and close it with the PURGE statement 
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SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 4: Global Files and Global Data Decks 



LEARNING SEQUENCE 

Global Data Decks must be declared in the same manner as Global Files. Access 
to these data decks is handled by the system and the programs using these decks. 
There may be more than one data deck available but none may have the same 
name. 

• BEGIN JOB GLOBAL/DATA/DECK ; 

DATA CARD % BEGINNING OF THE DATA DECK 

5 

10 

15 

? % END OF THE DATA DECK 

RUN PROG/DATA/EXAMPLE ; % INTERNAL FILE CARD 

RUN PR0G2/DATA/EXAMPLE ; % INTERNAL FILE CARD 

END JOB 



• BEGIN JOB GLOBAL/DATA/DECK ; 

DATA CHARSETl % BEGINNING OF THE DATA DECK 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
0123456789 

7 % END OF THE DATA DECK 

DATA CHARSET2 % BEGINNING OF THE DATA DECK 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

0123456789ABCDE ^^^,, 

? % END OF THE DATA DECK 

RUN PROG/DATA/EXAMPLE ; % INTERNAL FILE CHARSETl 
RUN PR0G2/DATA/EXAMPLE ; % INTERNAL FILE CHARSET2 
END JOB 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILirffiS 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 4: Global Files and Global Data Decks 

PRACTICE EXERCISE 

Write a WFL job that incorporates the following functions: 



1. Run a program whose name is PAYROLL that uses the global file 
TAXINFO for input and output. The internal file name is TAXES. 

2. Run a report program PAYROLLTAX that uses the same global file as 
input only. The internal file name is TAXINFO. 

3. The global file TAXINFO resides on disk by the name of TAXDATA. 

4. The report program PAYROLLTAX also uses a card file called CARDIN 
whose card images are to be included in the WFL job. The cards will 
contain the name of the company, the name of the report, and the name 
of the department being reported on. 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILirffiS 



SUBROUTINES, CONTROL, and ERROR HANDLING 

Unit 5 
WFL Compiler $ Options 

OBJECTIVE 

Identify the functions of tiie WFL $ options. 

PURPOSE 

To make full use of the WFL system, it is necessary to know what is 
available for use. 



RESOURCES 

a. Student Materials 



Section 4 

Unit 5 



b. A Series WFL Reference Manual Section 9 



KEY WORDS 



$ 

ERRORLIMIT 

NEWSOURCE 

INCLUDE 

CODE 

LIST 

SET 

RESET 

POP 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDUNG 
Unit 5: WFL Compiler $ Options 



LEARNING SEQUENCE 

WFL Dollar Options provide additional flexibility and control over the WFL job 
being produced. The $ must be in columns 1 or 2 of the card as with regular 
compiler options. The number of options for WFL is restricted. The option $ 
ERRORUMIT is used to stop the compile after a certain number of errors. The 
job disposition NEWSOURCE will determine whether a new source file will be 
created. If present, the new source file is created including or excluding the $ 
/>n+innc hoepH r\rt thp lnr»atinn nf the $ character. 

It is possible to store sections of commonly used WFL source code in a library on 
disk. These sections of code may then be used by just merging these library files 
into the WFL source. The $ INCLUDE is used to do this as illustrated below. 

• SOURCE PROGRAM 

- BEGIN JOB LIBRARYEX (INTEGER 11) 

NEWSOURCE = LIBRARYEXNEW ON SYSTEMS ; 
BOOLEAN COMPILEIT ; 
IF II = 1 

THEN COMPILEIT := TRUE 
ELSE COMPILEIT := FALSE ; 
$INCLUDE LIB/ROUTINE ; 
END JOB 

• LIBRARY FILE (LIB/ROUTINE somewhere on the system) 

IF COMPILEIT 

THEN COMPILE PROGA COBOL LIBRARY GO ; 

COBOL FILE CARD (KIND = DISK, TITLE = WFL/LIB/PROGA) ; 
ELSE RUN PROGA ; 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDUNG 
Unit 5: WFL Compiler $ Options 



LEARNING SEQUENCE 



Sometimes if problems are occurring and there seems to be no ^^^^^^^^^^^^^^^ 
it mav be useful to get a code listing of the WFL ]ob. The $ SET CUUt luncuon 
muS be used with the UCT option to get a code listing with the address couple 
Smation for the job. The SET. POP and RESET functions may be used to 
restrict the listing to only those areas desired. 



00000100 $SET LIST OCDE 

00000200 BEGIN JOB WFL/TEST ; 

00000300 IhnEGER I ; 

00000400 

00000500 I := 5 ; 

00000600 I := I + 2 + 3 + 4 : 

00000700 

00000800 DISPLAY STOING( I , * ) 

00000900 

00001000 END JOB 



• GCnE C2NERATED BY THIS SINPI£ JCB 

100 00000100 $SET LIST CCDE 

200 00000200 BEGIN JCB WFL/TEST ; 

300 (01 0002) = OCDE SBOVENT DESCRIPTCR 

400 (02,0002) = SKELEICN STACK raSCRIPTICN 

500 (02,0003) = DATA DECK ARRAY 

600 (02,0004) = BCLLOUr TUVESTAMP SlUT 

700 0000:0 NDOP FE 

800 00000300 INIEGER I ; 

900 DATA POOL: SBaVENr=0005 [5] 



SSo Smhoomu O^nmVo O ioOOOOOOS 0C010203E6C6 D304E3C e e 
nSS 08?40oSoOoJ3 07000 03D9E6 C40000000000 240400000004 0E5BE2C5E340 
n?rqF2E340C3 D6C4C5000000 260100000002 00000041808B 371200000005 
^2^20^9 S9E2E8E2 E3C5D4E2C5C4 04C4C9E2D2A7 000000000000 



1200 
1300 
1400 (02,0005) = I 

1500 00000400 
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SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDUNG 
Unit 5: WFL CompUer $ Options 



LEARNING SEQUENCE 



• CODE GENERATED BY THE EXPRESSIONS IN LINE 500 AND 700 



1600 


00000500 I : 


= 5 ; 




1700 


0000:1 


LT8 


B205 


1800 


0000:3 


nam: (02,0005) 


5005 


1900 


0000:5 


S'lLU 


B8 


2000 


00000600 I : 


= I + 2 + 3 + 4 ; 




2100 


0001:0 


VALC (02,0005) 


1005 


2200 


0001:2 


LT8 


B202 


2300 


0001:4 


ATT) 


80 


2400 


0001:5 


LT8 


B203 


2500 


0002:1 


ADD 


80 


2600 


0002:2 


LT8 


B204 


2700 


0002:4 


ADD 


80 


2800 


0002:5 


NTIA 


86 


2900 


0003:0 


N/M: (02,0005) 


5005 


3000 


0003:2 


b-lLD 


B8 


3100 


00000700 







LINEINFO 0QQ005QQ 



LINEINFO 00000600 



4-34 



A SERffiS AND B 5/6/7000 WORKFLOW AND UmmES 

SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDLING 
Unit 5: WFL Compiler $ Options 



LEARNING SEQUENCE 



3200 00000800 DISPLAY SmiN3(I,*) 



(02,0006) 
(02,0007) 



3300 (01,0003) 

3400 

3500 

3600 

3700 

3800 

3900 

4000 

4100 

4200 

4300 

4400 

4500 (02,0008) 

4600 

4700 

4800 

4900 (01,0004) 

5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 

5800 

5900 

6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 

6800 

6900 

7000 

7100 



= NESSER@ (0,0028) 

0003:3 NKST 

0003:4 NAIVC (01.0003) 

0004:0 LT48 

= TBVTPCRARy STRINj 

= TEMPCRARY STRING UENGIH 

0006:0 ZEfO BO 

0006:1 NAWC (02,0006) 5006 

0006 : 3 INDX A6 

0006:4 ZERO BO 

0006:5 NAIVC (02,0007) 5007 

0007:1 STCD B8 

= EXPRESSION TEVKHARY 
0007:2 NAIVC (02.0008) 5008 

0007:4 OVRN BB 

0007:5 IXJPL B7 

= OCSriRINGFUNCriCN @ (0,0034) 



AE 

6003 

BE000004000003 



LINEINFO 00000800 



0008:0 

0008:1 

0008:3 

0008:5 

0009:0 

0009:2 

0009:3 

0009:4 

0009:5 

000A:0 

000A:2 

000A:3 

000A:5 

000B:0 

000B:1 

000B:2 

000B:3 

000B:5 

0OOC:O 

000C:1 

000C:3 

000C:4 



IVKST AE 

imC (01,0004) 6004 

N^WC (02,0008) 5008 

LQ^D BD 

VALC (02,0005) 1005 

ZERO BO 

CNE Bl 

ENTO AB 

DUEL B7 

VALC (02,0007) 1007 

ADD 80 

NAiVC (02,0007) 5007 

STCD B8 

TUNU EE 

DLET B5 

ZERO BO 

LT8 B206 

TIM) E6 

ZERO BO 
NAPC (02,0006) 5006 

INDX AG 

E^^R AB 



7200 
7300 



00000900 
00001000 



END JOB 



% AND 3 \CFE PAGES NOT LISTED 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 
Unit 5: WFL Compiler $ Options 



PRACTICE EXERCISE 

In the space provided, write the letter of the description that best defines the 
statement. 



1. LIST 



A. This option will cause the compiler to 
generate a listing of the code along with 



1J_4.i__ 



2. INCLUDE 



B. This element will enable an updated 
WFL job symbol file to be generated. 



3. NEWSOURCE 



C. This option will enable a separate WFL 
source listing to be printed. 



4. CODE 



D. This option will set the maximum 
number of errors allowed by the WFL 
compiler for a single compilation. 



5. ERRORLIMIT 



E. This option will allow the compiler to 
include the contents of library files as 
part of the source for a compilation. 
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SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDLING 



4-1 



Write and run a Work Flow job which includes the steps described below. You may 
find it helpful to write, perform and check each step separately before adding the 
next step to the job. 

Assure that all tasks within the job have a priority of 80 unless stated otherwise. 
The job should be limited to 10,000 lines of print. 



STEP 1: Copy the files WFL/PROGASRC and WFL/PROGESRC from 

to 



STEP 2: Allow time for the operator to load the correct paper. 

STEP 3: Assure the COBOL source PROGESRC is available and com- 

pile PROGE putting a copy of the object on disk. The 

.«..^»-«^;1a MU^«t1(4 Ka nitrt of q r>T*irif*i t^^' O^ 60 
uOiiiUiic diiv^uxvi uc I. \An 641. a. ^i *%/!. » w j *J* ^^ • 

STEP 4: Run PROGE if it had no syntax errors from STEP 3. 

The input file, internally named ORIGINAL-FILE is named 

WFL/WFLDATA and should be on the systems disk. 

The two output files, INPUT-FILE and BKUP-FILE 

should be named SALESDATA and SLSDATABKP respectively. 

SLSDATABKP is a backup copy of SALESDATA. 

STEP 5: Assure the COBOL source PROGASRC is available and 

compile PROGA putting a copy of the object on disk. 
Assign a priority of 35 using a task variable. If 
needed, WFL/PRGASRCBKP is another copy of PROGA's 
source. 



STEP 6- Run PROGA if there were no syntax errors. The input 

file, internally named ORIGINAL-FILE, is SALESDATA. 
The output file, internally named DISK-FILE, should be 
named SALESMSTR. 



4-37 



A SERIES AND B 5/6/7000 WORKFLOW AND UTnJTIES 
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LAB : (Continued) 

STEP 7: Create a loop that will call a subroutine. The 

subroutine should run each of the programs listed below 
depending on an integer variable value. 

The three programs create reports and the first 

two need SALESMSTR as input. The three programs are: 

a. WFL/PROGB 

b. WFL/PROGD 

c. WFL/PROGC 



STEP 8: Remove all files you created within this WFL job from 

the user disk. 



SHOW THE INSTRUCTOR THE RESULTS. 
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SECTION 4: SUBROUTINES, CONTROL, and ERROR HANDUNG 

LAB : 4-2 

Write a WFL job which includes the steps below: 

STEP 1: Execute UTIL/< yourname >/PROGA and UTIL/< yourname >/PROGB 

simultaneously. PROGB has an output file with the internal name of 
AUDITDISK. File equate this to a global disk file called 
UTIL/< yourname >/GLOBAL. 

STEP 2: Write one "ON TASKFAULT" subroutine to handle possible failures 

of the tasks run in STEP 1 above. 

A. If PROG A fails then: 

1. Run CLASS/PROGD and file equate the internal file 
AUDIT to the global file built in STEP 1. PROGD 
will use this as an input file, so be sure to set the 
record pointer to the beginning of the file. 

2. Rerun PROGA asynchronously with PROGB. Pass a 
taskvalue of 2 to PROGA. 

3. If PROGA fails to run the second time, stop the entire 
job and give the reason for termination in the job 
summary. 

B. If PROGB fails then: 

1. Discontinue PROGA and rerun PROGA with a 
taskvalue of 1 passed to it. 

2. Rerun PROGB. 

3. If PROGB fails the second time, stop the entire job 
and give the reason for termination in the job summary. 

STEP 3: After PROGA and PROGB run successfully, run CLASS/PROGC. 

SHOW THE INSTRUCTOR THE RESULTS. 
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SECTION 4: SUBROUTINES. CONTROL, and ERROR HANDUNG 



LAB : 4-3 



Write a WFL job containing three subroutines to perform tiie sections 
of the string function lab from SECTION 3. 



STEP 1: Make a new file for this job or get the previous lab as 

another name. 

STEP 2: If the functions are in separate jobs, use the CANDE INSERT 

command to combine them into one file. 

STEP 3: Put each of the three functions (NAME REVERSAL, 

SQUARING, & GEORGE WASHINGTON) into a separate 
subroutine. 

STEP 4; Accept the name and number in the working section 

and pass them as parameters to the subroutines. 

STEP 5: Include at least one local variable in a subroutine. 

STEP 6: Display the results from either the subroutine or 

the working section. 



EXTRA ; Instead of accepting the information in the working section, 
pass the information needed as a job parameter. 



SHOW THE INSTRUCTOR THE RESULTS. 
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LAB : 4-4 

Additional labs to be supplied by the instructor. 
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LAB : 4-5 

Additional labs to be supplied by the instructor. 
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UTILITIES 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILrnES 



UTTUnES 



SECTION OBJECTIVE 

Construct a WFL job using different utilities to produce the desired results. 



PURPOSE 



—. .•■••,•.- __-..: j_ *u_ ..-c- u!i*v» s mpone *n f\Ht a\n vnpir>ii« information 
1 ne Utllllies yruviuc mc uoci nmi a iiiCOiiu v»# w^._... .a 

about the system and a way to manage the system resources. There are 
some basic utilities that almost every user needs to know. 

UNIT OBJECTIVES 

• Construct a WFL job to print out a file using the printing subsystem. 

• Construct a WFL job to copy a file from one media to another using 
SYSTEM/DUMPALL. 

• Construct a WFL job that uses SYSTEM/FILED ATA to generate reports on 
disk usage. 

• Construct a WFL job that will copy files to a backup location using 
SYSTEM/FILECOPY. 

• Construct a WFL job that will execute SYSTEM/LOGANALYZER to 
generate reports from system logging. 

• Identify the uses of other utilities available on large systems. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTnJTIES 



UTnJTIES 

Unit 1 

Printing Subsystem 

OBJECTIVE 

Construct a WFL job to print out a file using the printing subsystem. 

PURPOSE 

To keep the machine from becoming I/O bound on slow speed devices, such 
L a printer or punch, the NIC? has some options that allows the output to 
J^eseTvVces to be redirected to disk or tape. The printing subsystem is 
provided to manage the efficient use of these devices. 



RESOURCES 

a. Student Materials 

b. A Series Print System 

c. A Series Printing Utilities 
KEY WORDS 

LPBDONLY 

CPBDONLY 

BACKUPBYJOBNR 

SB 

DLBACKUP 

DL 

OU 

PS SHOWREQUEST 

PS DELETE 



Section 5 
Unit 1 



DS 

CL 

PS STOP 

PS OK 

PS FORCE 

SYSTEM/BACKUP 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILmES 

SECTION 5: UTILTrffiS 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

Printer and punch type peripheral devices are usually very slow in their handling of 
data. If many programs are trying to access a printer or punch, and only one may 
have control over it any point in time, then several programs are just waitmg. 
This creates a problem in that the I/O cannot keep up with the processor which is 
more commonly referred to as I/O bound. To alleviate this situation, the prmted 
or punched output from any or all programs may be redirected to disk or tape 
through the systems options LPBDONLY and CPBDONLY. The default for these 
options are to backup or put the files on disk or tape. A benefit derived from 
sending output files to disk or tape is that the utility may print these files at the 
first opportunity. It will also drive the device at close to its maximum output thus 
making better use of system resources. 

The backup files are linked in a queue structure that provides two selection 
capabilities based on another system option BACKUPBYJOBNR. This option allows. 
the operator to decide whether files will be output by job number or by the 
amount of lines generated by the job. 



To get a job to execute properly and to get the desired results, it may be 
necessary to control the environment of the job, its tasks, and the output ^ ^ ^^ 
generated Task attributes and file attributes are used for tnis purpose, wui. me 
level 3 6 release, many of these have enhanced capabilities when applied to 
printing. In addition, other attributes have been created to provide capabilites not 
available to the previous backup system. 
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SECTION 5: UTILITIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

These are some of the system options and attributes that were available for level 
3.5 software and are still applicable to level 3.6 software. 



SYSTEMS OPTIONS: 

• LPBDONLY 

• CPBDONLY 

• BACKUPBYJOBNR 

• NOSUMMARY 



% 0P+ SET - SPOOLED 
OP- RESET - DIRECT 



% 0P+ SET 
OP- RESET 

% 0P+ SET 



BY JOB NUMBER 
BY VOLUME 

NO SUMMARY IF A 
NORMAL EOJ OCCURS 



TASK ATTRIBUTES: 

• BDBASE 

• BDNAME 

• JOBSUMMARY 



% INITIATES A SEPARATE STACK 

% PREFIX FOR BACKUP FILE NAME 

% DEFAULT NOSUMMARY 

(SYSTEM OPTION) 



FILE ATTRIBUTES: 

• BACKUPKIND 

• FORMID 

• KIND 

• PRINTERCONTROL 

• PRINTERKIND 



% BACKUP MEDIA TYPE 

% SPECIFIES THE TYPE OF FORM TO BE 
USED 

% ORIGINAL DEVICE 

% INDICATES THE FILE NAME OF A 
PRINTER CONTROL FILE 

% TYPE OF PRINTER - IMAGE OR LP 
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SECTION 5: UTILrnES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

Several ODT commands allow the operator flexibility as to where to store backup 
files The ODT command (SB) allows the operator to equate any backup media 
type to another media type or DLBACKUP for better control of the system This 
also allows the print system to find all backup at one location. The DLBACKUP 
option specifies that the system should look for a particular family based on the 
information given by the ODT command (DL). If a particular unit is not aval able. 
♦v,e M'^P will re^nnnri with a messaee marked RSVP. The ODT command (OU) 
allows the operator to assign another output unit in place of the unavailable unit. 

Other ODT commands allow the operator to control the process. The ODT 
command (SP) will show the current files waiting to be printed. The ODT 
command (EP) eliminates the print queue if AB is set to zera To stop a file tha 
is printing, there are three ODT commands available. The ODT command (DS) will 
terminate the current print task and remove the print file. The ODT command 
(CD will terminate the current task, remove the print file, and reset the exception 
flags for that device. The ODT command (QT) will allow an operator to stop the 
task while not removing the print file. The task must be restarted manually at a 
later time unless the print queue is rebuilt. If you are stopping the task to print a 
special job, you might want to set AB to zero and initiate the task independently 
of AUTOBACKUP. To initiate a separate copy of AUTOBACKUP not under control 
of the AB command, the ODT command (PB) is used. 

Since the printing subsystem must find the backup files being created and be able 
to know which files belong to which job, the filenames are in the following format. 

*BD/JOB NUMBER/TASK NUMBER/FILENAME 

* B D / / /GOO 

♦ BD/0004255/0004260/OOOLINEOUT 

The attribute BDNAME is. therefore, used to modify the prefix of the printer 
backup filename. If modified, the printing subsystem will not be able to find the 
printfile automatically. Other means may be used to print it out such as the PB 
statement in WFL, WFL PB from CANDE, or the ODT command (?PB). These 
statements will initiate SYSTEM/BACKUP which has capability to do more 
specialized print request than does the printing subsystem. It allows one to specity 
the number of copies, special formatting, and where the output is to go. In 
addition, reference may be made by directory name or file name rather than by job 
number or mix number. 
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SECTION 5: UTILITIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 



?mplemented di/ferently because of the new pnntmg subsystem. 
ODT COMMANDS: 



• SB 



• SP 



• CL 

• DS 



• ?PB 



% SUBSTITUTE BACKUP 

CHANGE MEDIA TYPE 



m % DISK LOCATION ^,,,„v 

D^ EQUATE MEDIA TO A FAMILY 



„„ % OUTPUT UNIT 

• AB 



RESPONSE TO RSVP 



% NEW 3.6 IMPLEMENTATION 

- WILL BE DE-IMPLEMENTED 

% NEW 3.6 IMPLEMENTATION 

- WILL BE DE-IMPLEMENTED 

% NEW ^ fi IMPLEMENTATION 

• EP ; ^jLL BE DE-IMPLEMENTED 

. QT % QUIT 

• *^* QUIT AND SAVE 



QUIT AND REMOVE. CLEAR DEVICE 

% DISCONTINUE 

QUIT AND REMOVE 



% NEW 3.6 IMPLEMENTATION 
PB - WILL BE DE-IMPLEMENTED 

% PRINT BACKUP 

INITIATES SYSTEM/BACKUP 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILmES 

SECTION 5: UTELinES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

If the BDBASE option is set in addition to the BDNAME attribute, then a separate 
descendant stack is initiated for the print job. This means that the printout is 
treated as a separate job by the system and may become separated from the 
original job output since there is no guarantee that they will go to the same 
destination or will be printed at the same time. 



BEGIN JOB WFLBACKUP ; 
RUN MYPROG/ONE ; 
OPTION = { BDBASE ) ; 

BDNAME = CONCEPTS/CLASS ; % DL LOCATION 

PB "CONCEPTS/CLASS ON EDUCATION" ; 
RUN MYPROG/TWO ; 
END JOB ; 

JOB OUTPUT % FROM MYPROG/TWO 

( R W D ) * B D /0007299/0007300/OOOLINEOUTTWO 



BDBASE OPTION OUTPUT % FROM MYPROG/ONE 

(RWD)CONCEPTS/CLASS /0007225/OOOLINEOUTONE 
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SECTION 5: UTILTTIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

There are new system options and attributes for level 3.6 software v'hich include 

punched output. 



The Printing Subsystem offers the following new task attributes: 



JOBSUMMARYTTTLE 
NOJOBSUMMARYIO 
PRINTDEFAULTS 



DESIGNATES TITLE OF BACKUP FILE TO 
RECEIVE JOB SUMMARY. 

INHIBITS WRITING OF JOB SUMMARY 
INFORMATION TO THE JOB CODE FILE. 

SPECIFIES DEFAULT VALUES FOR 
PRINTING-RELATED FILE ATTRIBUTES. 



The Printing Subsystem offers the following new file attributes: 
1. For routing and scheduling of print requests: 



AFTER 
DESTINATION 



PRINTDISPOSmON 
PRINTERKIND 



DEFERS PRINTING TO LATER TIME. 

SPECIFIES DESTINATIONS WITH 
OPTIONAL COPY COUNT PER 
DESTINATION. [DEFAULT VALUE IS SET 
FROM DESTNAME, WHICH CANDE 
EXTRACTS FROM CANDEDESTNAME IN 
THE USERDATAFILE.] 

SPECIFIES WHEN TO LOGICALLY QUEUE 
THE FILE FOR PRINTING. 

■ INDICATES GENERIC PRINTER {IMAGE 
PRINTER. LINE PRINTER, OR 
DONTCARE). 
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SECTION 5: UTTLmES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 



2. For backup file control: 



PRINTCOPIES 
SAVEBACKUPFILE 

SECURITYTYPE 

TITLE 
USERBACKUPNAME 



- INDICATES NUMBER OF COPIES TO 
PRINT AT DESTINATION. 

- SPECIFIES WHETHER A BACKUP FILE 
SHOULD BE REMOVED OR NOT AFTER 
PRINTING. 

- SET TO PRIVATE IF BACKUP FILE TITLE 
INCLUDES A USERCODE. 

- RETURNS ACTUAL BACKUP FILE NAME. 

- ALLOWS USER-SPECIFIED BACKUP FILE 
NAME. 



3. For printing control: 



BANNER 



FORMID 



NOTE 



PRINTERCONTROL 



TRANSFORM 



PRECEDES FILE PRINTING BY BANNER 
PAGE. 

INDICATES TYPE OF PAPER OR KIND 
OF FORM REQUIRED. [A STRING 
VALUE UP TO 100 CHARACTERS LONG.] 

ALLOWS USER TO SUPPLY TEXT FOR 
BANNER PAGE. 

INDICATES THE FILE NAME OF THE 
PRINTER CONTROL FILE. 

SPECIFIES LIBRARY ENTRYPOINT FOR 
TRANSFORMING DATA ON ITS WAY 
FROM BACKUP FILE TO PRINTER. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILrnES 

SECTION 5: UTTLTriES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

A new printing subsystem that replaces the autobackup facility is available on the 
Mark 3.6 release. The new subsystem supports the backup file creation and 
automatic printing features that were previously provided by Autobackup, as well as 
providing capabilities for backup file creation, routing, and printing control. 
Remote printing has been integrated into the new subsystem to make routing to 
remote printers as easy as routing to site printers and to allow remote printers to 
be controlled with the same operator commands that work for site printers. 

All the old operator commands that were supported by Autobackup are still 
accepted and cause equivalent actions in the new Printing Subsystem. The only old 
command without a direct equivalent is EP. The new PS DELETE ALL command is 
roughly equivalent to EP except that it also removes any files queued for printmg. 
The equivalent new syntax for the old Autobackup commands is shown below. 
Acceptable abbreviations are shown in upper case characters. The system 
automatically translates the old commands to the new commands for you, except 
for the EP command, which results in an informative error message. 

Old syntax New syntax 



AB PS SERVers 

AB <number> PS SERVers = <number> 

AB <device> PS DEVices + <device> 

AB - <device> PS DEVices - <device> 

EP PS DELete ALL 

FORM <device> PS DEVices <device> 

FORM <device> <text> PS CONFIGure <device> FORMid <text> 

SP PS SHowrequests 

On level 3.6, some new ODT commands allow the operator to control the process. 
The ODT command (PS SHOWREQUEST) will show the current files waiting to be 
printed. The ODT command (PS DELETE) eliminates entries from the prmt queue 
and the associated backup files. To stop a file that is printing, there are three 
ODT commands available. The ODT command (DS) will terminate the current print 
task and remove the print file. The ODT command (CD will terminate the current 
task, remove the print file, and reset the exception flags for that device. If you 
are stopping the task to print a special job. you might want to use the ODT 
command (PS STOP) which will allow an operator to suspend the printing while not 
removing the print file. The ODT command (PS OK) will restart printing of a 
stopped file. When a print request is initiated at the wrong time, it may be 
rescheduled by the ODT commands (PS REQUEUE) and (PS MODIFY). To initiate 
an immediate print request, the ODT command (PS FORCE) is used. 
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SECTION 5: UTILrnES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

The Printing Subsystem offers the following new operator commands 

NEW OPERATOR COMMANDS: 

PS 



ADDFILES 

CONFIGURE 

DEFAULT 

DELETE 

DEVICES 
FORCE 

MODIFY 

OK 

REQUEUE 
SERVERS 



ADD BACKUP FILES AND CREATE PRINT REQUESTS FOR 
THEM. 

IDENTIFY DEVICE CHARACTERISTICS SUCH AS VOLUME 
LIMITS, FORMID. AND TRANSFORM FUNCTION. 

CONTROL PRINT-TIME DEFAULTS FOR ENTIRE SYSTEM, 
SUCH AS PRINTER SELECTION BY PRINTERKIND FOR 
PRINT JOBS VERSUS STANDALONE JOB SUMMARY FILES. 

DELETE PRINT REQUEST(S) AND REMOVE ANY ASSOCIATED 
BACKUP FILES. 

LIST PRINTING DEVICES AND THEIR CONFIGURATIONS. 

FORCE REQUEST TO PRINT AS SOON AS POSSIBLE BY 
GIVING IT AN ARBITRARILY HIGH PRIORITY. 

MODIFY ATTRIBUTES (INCLUDING DESTINATION) OF 
PENDING PRINT REQUEST. 

RESUME PRINTING ON A DEVICE THAT WAS STOPPED BY 
AN OPERATOR. 

STOP DEVICE AND REQUEUE PRINT REQUEST. 
VIEW/CHANGE NUMBER OF PRINT SERVERS ALLOWED. 



QHnwRFOUESTS DISPLAY PRINT REQUEST LIST (OPTIONALLY SHOW ONLY 
SHOWREQUESTS DKPLAY^^t'K^^^ ^W^ COMPLETED, WAITING, PRINTING, 

SCHEDULED, OR EXCEPTIONS). [ANY SHOWREQUESTS 
COMMAND MAY BE LIMITED TO REQUESTS FOR A 
PARTICULAR USERCODE.] 

SKIP FORWARD OR BACKWARD WITHIN A FILE OR SKIP 
FILES COMPLETELY DURING PRINTING. 



SKIP 
STOP 



TEMPORARILY STOP PRINTING ON A DEVICE. 
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SECTION 5: UTILTTIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 



A brief summary of the new printing subsystem appears below. The printing 
subsystem offers the following capabilities: 



1. A programmatic interface through file attributes that gives the user 
control over backup file creation, routing, and printing. 

2. The ability to set defaults for printing-related file attributes for a job, 
task, or MARC session through the task attribute PRINTDEFAULTS. 

3. Extended operator control over printing devices and print jobs through the 
set of GOT commands that begin with the prefix PS. 

4. The ability to manually create print requests with the PRINT state- it in 

WFL. 

5. Enhanced capabilities for viewing, copying, removing, and printing backup 
files via the Backup Processor utility that is available through MARC or 
CANDE. 

6. The ability to optionally print job summary information, store it in a 
backup file for later analysis, or prevent job summary information from 
being w'ttpn tn the iob code file through the task attributes 
JOBSUMMARY, JOBSUMMARYTITLE. and NOJOBSUMMARYIO. 
respectively. 

7. Remote printing that is integrated with site printing and controlled by the 
same file attributes and operator commands. 
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SECTION 5: UnLTTIES 
Unit 1: Printing Subsystem 

LEARNING SEQUENCE 

The user/operator should be aware of differences in the following areas: 
1. New programs/libraries 

a The PRINTSUPPORT function must be SLed to SYSTEM/PRINT/SUPPORT, a 

,.. tu * __:_4.-:_- — c* «* ♦*'P s+a+e f"" thp Printing Subsystem, 
system library thai mainiBiins muSv ut me ^vu^c -.w. — i & 

b. SYSTEM/PRINT/ROUTER is a process that will stay in the mix to 
handle asynchronous communications with the Printing Subsystem. 
It is responsible for creating printing requests, responding to 
DDT commands, and monitoring changes in printer status. 

c A new Backup Processor Utility that is called for CANDE or MARC users is 
■ provided by the codefile SYSTEM/PRINT/BACKUP/PROCESSOR. This replaces 
the internal BACKUPPROCESSOR that CANDE previously used. 

d. Remote printing requires creation of a PRINTING window via the 
COMS UTILITY window and installation of the program titled 
SYSTEM/PRINT/REMOTE/SERVER. This program handles multiple 
remote printers and uses the library SYSTEM/PRINT/REMOTE/LIB to 
maintain state. 

e. Site printing is done by a stack per printer that is labelled 
SERVER/<unit name>/R#<request number>/J#<job number> rather 

than the old naming convention AUTOPRINT/<unit name>/<job number>. 

f The stack that does tape printing follows the old naming convention with one 
exception: AUTOPRINT is replaced by TAPEPRINT. 



5-14 
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SECTION 5: UTILinES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

2. New system files 

a. Information regarding backup files and print requests is 

maintained in the system file SYSTEM/BACKUPFILELIST on the DL 
BACKUP family. If this file is not present at Halt/Load, the 
Printing Subsystem waits on a "NO FILE" condition. This wait 
allows the operator to copy in the file from another pack or 
from tape, or to enter "<mix number> OF" and have the system 
create the file by searching the directory of all disk packs 
for files that begin with the prefix "•BD" or "*BP". If this 
system file is present, the disk pack directory will NOT be 
searched for backup files. 



Note that Autobackup was used to search the disk pack directory 
aftpr Halt/Load or when the AB count went from zero to 
non-zero. Due to the existence of SYSTEM/BACKUPFILELIST, the 
disk pack directory is no longer searched automatically. 



Information regarding printer characteristics is maintained in 
the system, file SYSTEM/PRINTERINFO on the DL BACKUP family. 
If this file is not present at Halt/Load, the Printing Subsystem 
waits on a "NO FILE" condition, allowing the operator to copy 
in the file from another pack or from tape, or to enter 
"<mix number> OF" and have the system create the file. 
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LEARNING SEQUENCE 
3. Unit selection 

a Rather than considering ABed devices as "preferred" in the 
sense that Autobackup used, the new Print Subsystem uses the 
concept that printers can be added to or deleted from the 
"default printer pool". This pool of printers is used for 
servifting reauests that do not specify a destination. A 
printer that 'does not belong to the default pool is used only 
when a request specifically names that printer as its 
destination. 

b Print requests are examined by the Printing Subsystem and 
split into separate requests if the files have different 
resource requirements. A request is not assigned to a Prmt 
Server stack unless the required resource is provided by that 
Server If a request needs a resource that is unavailable or 
in use, the request is marked as waiting in the Print Request 
List, but it does not cause any task to wait. Therefore. Prmt 
Server stacks do not wait for "REQUIRES FORM: XYZ", for 
example. 

c When a Print Server stack is initiated, it only hanv^^es 
requests for a specific printer and never tries to re-assign 
itself to a different printer. The fact that requests are 
split according to resource requirements makes it possible for 
Servers to be dedicated to one device and prevents a Server 
from having to wait for "REQUIRES LP", for example. If a 
Server finishes printing a request and no more requests are 
compatible with that printer, the Server stack terminates. 
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SECTION 5: UTILITIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 

Marc menus are the easiest way to execute the new commands. The following 
menus are samples of what you will see while executing the new commands from a 
privileged usercode. Limited options will appear on non-privileged user screens. 



Action: [ 



MARC - MENU- ASSISTED RESOURCE CONTROL 
HOme PRev GO PArent COmnd 



MARC 



INTRO 

JO 

JC 

JQ 
PS 


Intro to MARC 
Job Display 
Job Control 
Job Queues 
Printing Syste* 


RUN 

START 

UTIL 


Run A Task 
Start WFL Job 
System Utilities 



MEM Memory Management 

SP Special Programs 

DUMPS Dumps 

LOG Logging 

SWAP Swapper 

Choice: [ 



SYS System Control 

CONFIG System Config 

PK Disk Pack 

DK Head-per-trk Disk 

MT Magnetic Tape 

LP Line Printer 

IP Image Printer 

CR Card Reader 

CP Card Punch 

HC Host Control 

PROC Processors 

MM Memory Modules 

OTHER Other Devices 



11:14 AM 



(Press SPCFY for Help 

NEWS System News 

DATE Date and Time 

USER Usercode/Password 

FILE File Management 

LIBS System Libraries 



DC 


OataComm Contro 


6NA 


BNA Commands 


COMS 


COMS Displays 


CC 


COMS Control 


SEND 


Send Messages 


SC 


Session Control 


ON 


Change Window 


CANDE 


Cande Window 



Action: [ 



PS - PRINTING SYSTEM 
HOme PRev GO PArent COmnd 



STOP Stop A Printer Fro* Printing 
OK OK A Printer To Print 
REQUE Requeue A Request 
SHOW Show Print Requests 
SKIP Skip Printing A File 
FORCE Force Printing Of A Request 
DELETE Delete A Print Request 
CONFIG Configure A Print Device 
DECON Deconfigure A Print Device 
AOOF Add Files To BACKUPFILELIST 
MODIFY Modify Print Requests 
PRIIIT Print Backup Files 
PBMT Print Tape Files 
BACK View/control printer files 
LPBD Show/Set LPBOOMLY Option 

Choice: [ 



11:18 AM MARC 

(Press SPCFY for Help) 

CPBO Show/Set CPBDOMLY Option 
BYJOB Show/Set BACKUPBVJOBNR 
DL Specify Backup Faaily 

DEVICE Show Printing Devices 
SERV Show/Set Print Servers 
ADD Add Printer to Default Pool 
REMOVE Reaove Printer Froa Pool 

SB Show Backup Substitution 
CB Change Backup Substitution 
DEF Show/Set Default PRINTERKIND 
JOBSUM Show/Set JOBSUWARY attribute 
TITLE Show/Set JOBSWttARYTITLE 
PRDEF Show/Set PRIMTDEFAULTS 
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SECTION 5: UTXLinES 
Unit 1: Printing Subsystem 

LEARNING SEQUENCE 

The following screens offer examples of what you will see for specific requests. 

PSSHOW - SHOW PRINT REQUESTS 11=22 AM 

*'''°"^ ^HO.e PRev GO PArent COmnd (P-ess SPCFY for Help 



If Desired. Enter OWE Of The Following Options: 
C = Show Completed Print Requests 
W = Show Waiting Print Requests 
S = Show Scheduled Print Requests 
E - Show Exception Requests 
P = Show Printing Requests 
Leave Blank = Show Al 1 Requests 

(Enter USERCODE to li«it display) I 



FORCE - FORCE PRINTING OF A FILE 11:25 AM 

"'''°"'- ^HOme PRev GO PArent CO.nd (Press SPCFY for Help 

Enter Request Number 

°'^ . [ ] 

Enter Job Huiiber 



The PRINT command is new to level 3.6 and may be used from the ODT. CANDE 
MARC or W^Ho print printer backup files. It provides a more flexible means of 
Vitiating print request than does SYSTEM/BACKUP. A user may specify file 
attribu?lsTd modifiers to be applied to the backup ^^^^^ f ^%t^'nr^nt r'eouest ts 
attributes and modifiers may also be changed any time before the print request is 

acted upon, 
utitility to use. 
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SECTION 5: UTILITIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 



The PRINT statement may be executed from MARC, CANOE, or WFL to create a 
print request. This command is used to print backup files only! It may be used to 
print a single backup file or an entire directory of backup files. File attributes of 
the backup files may be altered at execution time by specifying them in the print 
request. The following samples are written for execution from a WFL job. To 
make them work from MARC or CANDE insert the word WFL in front of the word 
PRINT. 



To print 5 copies of the backup file MYPROG/PRINTOUTS 

PRINT MYPROG/PRINTOUTS (PRINTCOPIES = 5) ; 

To print the backup file BIG/REPORT after 8:00 p.m. 
PRINT BIG/REPORT (AFTER = "2000") ; 

To print the backup file MYSOURCE double spaced. 

PRINT MYSOURCE; PRINTDEFAULTS = (DOUBLESPACE = TRUE) ; 

To print the backup file PAYROLL/CHECKS on a printer with checks loaded and 
print 2 copies of the backup file PAYROLL/REPORTS on LP4. 

PRINT PAYROLL/CHECKS (FORMID= "CHECKS"), 

PAYROLL/REPORTS(DESTINATION="LP4",PRINTCOPIES=2) ; 

PRINTDEFAULTS = (HEADER = UNCONDITIONAL) ; 
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LEARNING SEQUENCE 



On level 3.6 the BDNAME attribute may be used by itself without the option 
BDBASE. The *BD is replaced with the value of the usercode and the value 
assigned to BDNAME. 



BEGIN JOB WFLBACKUP ; 
RUN MYPROG/ONE ; 

BDNAME = CONCEPTS/CLASS ; 
END JOB ; 

(RWD)CONCEPTS/CLASS /0004888/0004893/OOOLINEOUT 
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SECTION 5: UTILITIES 
Unit 1: Printing Subsystem 



LEARNING SEQUENCE 



For special forms, it is fairly simple to restrict the output to a single device or to 
load the form needed and start the output. 



BEGIN JOB WFLFORMS ; 
RUN MYPROG/ONE ; 

FILE PRT(FORMID = "CHECKS") ; 
END JOB 



ON LEVEL 3.5 

• CAUSES THE MESSAGE 

• RESPOND WITH 

OR BEFOREHAND 



- MIX NUMBER REQUIRES FM: CHECKS 

- MIX NUMBER FM LP4 

- FORM LPS "CHECKS" 



ON LEVEL 3.6 



NO LONGER CAUSES 
THE MESSAGE 



• MARKS THE PRINT 

REQUEST AS WAITING 
RATHER THAN THE TASK 

• RESPOND WITH 

OR BEFOREHAND 



- MIX NUMBER REQUIRES FM: CHECKS 

- CHECK THE PRINT REQUEST LIST 

- PS DEVICES < DEVICE > 

- PS CONFIGURE<DEVICE> FORMID<TEXT> 
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PRACTICE EXERCISE 



Write a WFL job that executes the program PAY2 that outputs 2 printer files 
called OUTl and 0UT2. OUTl must use three ply carbonless paper for its output, 
while 0UT2 prints on a special type of check called CKTYPE2. The job requires 
that 5 copies of OUTl be printed and that both backup files be kept for future 
use. These backup files are to be placed under the directory PAYHISTORY. 
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UTnJTIES 

Unit 2 

System/Dumpall 



OBJECTIVE 

Construct a WFL job to copy a file from one media to another using 
SYSTEM/DUMPALL. 

PURPOSE 

,T,an« timps that files may be received on foreign media. It may 
le"V^>^y"l Sy'these'fL'^'s .hey .re copied to be usable on .h,s 



system. 
RESOURCES 

a. Student Materials 

b. A Series System Software Utilities 



Section 5 

Unit 2 

Section 4 



KEY WORDS 



PARAMETER MODE 
CARD MODE 
INTERACTIVE MODE 
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LEARNING SEQUENCE 

The SYSTEM/DUMPALL utility is a rather comprehensive media conversion program. 
It is capable of copying files from one media to another, listing files on the hne 
printer, or generating card decks. These files may be labeled or unlabeled on 
either input or output. Any FILEKIND may be copied from any media device to 
any media device. If it has a standard label, it is used; otherwise, the user must 
supply the information to the utility. The utility may be used for changmg the 
attributes of a file during the copy process. 

SYSTEM/DUMPALL executes in three basic modes of operation. In all three 
modes, commands are required to perform the operations desired. 



• PARAMETER MODE 

- RUN SYSTEM/DUMPALL ( " " ) 
% COMMANDS ARE PASSED AS PARAMETERS 

• CARD MODE 

- RUN SYSTEM/DUMPALL { "CARD" ) 

FILE CARD {TITLE = ON 



% COMMANDS ARE PASSED AS CARD IMAGES 



• INTERACTIVE MODE 

- RUN SYSTEM/DUMPALL ( "INTER" ) 

% COMMANDS ARE PASSED INTERACTIVELY FROM A REMOTE 
TERMINAL 
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LEARNING SEQUENCE 

The following job executes SYSTEM/DUMPALL in the parameter mode from a WFL 
job. It may also be executed from CANDE in the same manner. 

• 100 BEGIN JOB UTIL3; 

120 % 

130 RUN *SYSTEM/DUMPALL 

140 ("L (RWD)C0NCEPTS/CLASS/UTIL3"); 

150 % 

160 END JOB 

The output from the job above is shown below: 

100 66900:2372 DUMPALL VERSION 34.180.032 TUESDAY. 02/05/85 02:39 PM. 

200 
300 
400 
500 L (RWD)C0NCEPTS/CLASS/UTIL3 

700 FILE ATTRIBUTES FOR: FIN TITLE=(RWD)C0NCEPTS/CLASS/UTIL3 ON 
SYSTEMSED HoItnaME=TRAINING1 KIND=PACK INTM0DE=EBCDIC 
EXTMODE=EBCDIC FILETYPE=0 MINRECSIZE=0 MAXRECSIZE-15 
RT nrKSIZE=420 FRAMESIZE=48 FILEUSE=I0 BUFFERS=2 

?rSlate=fulltrans protection=save P0PULATI0N=1 AREAS=1 

IrEALENOTH=15120 FLEXIBLE LASTREC0RD=7 FILEKIND=JOBSYMBOL 
RnwSINUSE=l CRUNCHED USERINFO=000000000000 
CREfTlSNDATE=02/05/85(85036) LASTACCESSDATE=02/05/85(85036) 
CYCLE=1 VERSION=0 SAVEFACTOR=30 SECURITYTYPE=PRIVATE 
SECURITYUSE=IO PACKNAME=SYSTEMSED 

1200 

1300 

1400 IE! BEGIN JOB UTIL3; 

1500 2E! % 

1600 3E! RUN *SYSTEM/DUMPALL 

1700 4E! ("L (RWD)C0NCEPTS/CLASS/UTIL3"); 

1800 5E! 

1900 6E! END JOB 

2000 EOF - FILE CONTAINS 6 RECORDS 
2100 6 RECORDS PROCESSED 
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LEARNING SEQUENCE 

The following job executes SYSTEM/DUMPALL in the card mode from a WFL job. 
It may also be executed from CANDE in the same manner. 

BEGIN JOB DUMPALLCARDl (STRING SI) ; 
RUN *SYSTEM/DUMPALL("CARD") ; 

FILE CARD (TITLE=#S1 ON SYSTEMSED) 

END JOB 

The parameters to SYSTEM/DUMPALL may be placed in an ordinary CANDE data 
file. The contents of the data file may contain any of the input parameters 
available for by SYSTEM/DUMPALL. Some examples are: 

ATTributes <file title> (file attribute<s>) 

List the attributes of the file specified. 

CAT <file title> THEN <file title> GIVING <file specification> 

Concatenates the first file to the second file creating a new file. 

COPY <file title> TO <file title> (file attributes) 

Copies the first file to the second file name using the attributes 
specified to create the output file. 

LIST <file title> RECORD 5 H 

List record 5 of the file specified in hex. 
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LEARNING SEQUENCE 



The following example shows the use of [>-P^^^ -^"f, ^.^.^^^^^^^^ 

files to dynamically pass the name of a ^^^^ ^/^^^^ 1"^^^ f^^\ .inter backup file. 

also shows how to build a file name JJ_^"^lgol program f^ .^^^P^^^ 

The same procedure may be used m WFL to generate a lue nan 

name of the file is known. 

BEGIN JOB DUMPALLCARD2 ; 
DESTNAME = B20FINAL ; 

HlTp°aIsIt"'(KIND=DISK. MAXRECSIZE-80, UNITS= CHARACTERS); 
SI •= "THIS IS A TEST STRING" ; 
RUN 0BJECT/TEST/PR0GA(S1) ; 
RUN *SYSTEM/DUMPALL("CARD") ; 
FILE CARD := PASSIT ; 
END JOB 



$LEVEL 2 

PROCEDURE TESTIT (SI) ; 

ARRAY SI [*] ; 

BEGIN 

STRING S2, S3 ; 

Til ST"rN;=DTK,™xkECS,ZE=80, UN,TS=CHARACTEHS, 

protection=save) ; 
thru 5 do write(prt,<a6>.s1) ; 

^^ '■" '%'?o"''cIt°"s?ring(myself.jobnumber/) cat ';/;; 
"000" CAT string(myself.mixnumber,*) cat "/" 

"000" CAT "PRT" ; 
write (PASSIT,/,S3); 
DISPLAY (SI); 
DISPLAY {S3); 
WAIT((5)) ; 
END. 
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LEARNING SEQUENCE 

The following job executes SYSTEM/DUMPALL in the interactive mode. The items 
that are highlighted are the commands that are transmitted from a terminal. The 
interactive mode is especially useful to the programmer that wishes to check on a 
record that was just updated by a new program. It is not limited to specific file 
formats as is CANDE. 

RUN •SYSTEM/DUMPALL{"INTER") 

RUNNING 2525 

•? 
86900:2372 DUMPALL VERSION 34.180.032 WEDNESDAY, 02/06/85 01:49 PM. 
PLEASE ENTER DUMPALL COMMAND 

LIST OUCEPTS/GLASS/UriLl 

FILE ATIRIBUIES FCR: FIN TITLE=(F!SO)a:NCEPTS/CLASS/UriLl CN SYSTINBED 
H0STOMVE=TOAINING1 KIND=PACK INIMJDE=EBCDIC EXnVCDE=EBCDIC FILEIYPE=0 
MINRECSIZE=0 M^XRECSIZE=15 BLOCKSIZE=420 FRA^ESIZE=48 FILEUSE=IO 
BUFFERS=2 'mANSLATE=FULL'IRANS PRDrECriCN=SAVE Pa?ULATICN=l AREAS=1 
AREALENGrH=15120 FLEXIBLE LASTOB0CRD=7 FILEKIND-JOBS^MBCL Ra(\SINUSE=l 
CRUNCHED USERINFO=000000000000 CREATICNDATE=02/05/85( 85036) 
LASTADCESSDATE=02/06/85(85037) CYCLE=1 VERSICN=0 SAVEFACnai=30 
SBCmiTyrYPE=PRIVATE SECURITYUSE=IO PACKN^WE=SYSTEMSED 



CCNT 

IE! BEGIN JCB UTILl; 
{0000068)E! 00000100... 90 

CCNT 

op I % 

(0000068)E! 00000200... 90 

CCNT 

3E! RUN SYSTEM/FILEDATA 
(0000068)E! 00000300... 90 
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LEARNING SEQUENCE 



The commands shown on this page ^^^^ the same record in different data formats: 

R = Real. D = Decimal. E = EBCDIC. H = HEX. A - ASCII, and O uctai. 
R 



3R! 
(0000003)R! 
{0000006)R! 
{0000009)R! 
(0000012)R! 



-3088730162960.0 

-133634.007843 

-275955859520.0 

-275955859520.0 

-275955859520.0 



-1.8861720541E-4 
-275955859520.0 
-275955859520.0 
-275955859520.0 
-275955904752.0 



-1.74319633488E+23 

-275955859520.0 

-275955859520.0 

-275955859520.0 

-7.6531949077E-19 



15 



3D! REAL 
{0000004)D! -275955859520 
(0000008)D! -275955859520 
(0000012)D! -275955859520 



! ALPHA i ALPHA 

I -275955859520 ! -275955859520 

f -275955859520 ! -275955859520 

! -275955904752 ! ALPHA 



ALPHA 

-275955859520 
-275955859520 
..15 



3E! 
(0000068)E! 

H 



RUN SYSTEM/ F I LEDATA 

00000300. 



.90 



3H! 40D9E4D540E2 

(0000048)H! 404040404040 

(0000096)H! 404040404040 

(0000144)H! 404040404040 



E8E2E3C5D461 
404040404040 
404040404040 
40404040F0F0 



C6C9D3C5C4C1 ! E3C140404040 

404040404040 ! 404040404040 

404040404040 ! 404040404040 

F0F0F0F3F0F0 ! ... 180 



3A' @"?@??????a????????< 
(0000068)A! <§@@@@@@(9@39@@@???????? 



,90 



30 
(0000048)0 
(0000096)0 
(0000144)0 
(0000192)0 



2015474465240342 
7074050020040100 
2004010020040100 
2004010020040100 
2004010020040100 



7216134361352141 
2004010020040100 
2004010020040100 
2004010020040100 
2004010020170360 



6154472361342301 
2004010020040100 
2004010020040100 
2004010020040100 
7417036074770360 



.240 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTaJTIES 

SECTION 5: UTILITIES 
Unit 2: System/Dumpall 

LEARNING SEQUENCE 

The commands on this page are used to locate a particular record within a file. 



3E! RUN SYSTEVI/FILEDATA 
(0000068)E! 00000300... 90 

RBOCBD 1 

IE! BEGIN JCB UTILl; 
{0000068)E! 00000100... 90 

SKIP+2 

3E! RUN SYSIBVI/FILEDATA 
(0000068)E! 00000300... 90 

SKIP-1 

2E! % 
(0000068)E! 00000200... 90 

NEXT 

3E! RUN SYSTEM/FILEDATA 
(0000068)E! 00000300... 90 

AGAIN 

3E! RUN SYSTOVI/FILEDATA 
(0000068)E! 00000300... 90 

OCNT 

4E! STATICN=139; 

(0000068)E! 00000400... 90 

QUIT 

9 RECORDS PROCESSED 
END OF LIST ROUTINE 
PLEASE ENTER NEXT COMMAND 
QUIT 

The first QUIT exits the list command and the second QUIT exits DUMPALL. 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 5: UTILITIES 
Unit 2: System/Dumpall 



PWAHTTCE EXERCISE 



Write a WFL job to execute SYSTEM/DUMPALL that wUllist the file 
USER/ONE/DATA ON PRODUCTION. After listing the file, copy the file to a 
tape called BKUP. Execute DUMPALL only once from the job. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITffiS 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTHJTIES 



UTILITIES 

Unit 3 

System/Filedata 



OBJECTIVE 



Construct a WFL job that uses SYSTEM/FILEDATA to generate reports on 
disk usage. 



PURPOSE 



This utility provides the capability to generate reports about the files and 
their storage on a system. 

RESOURCES 

a. Student Materials Section 5 

Unit 3 

b. A Series System Software Utilities Section 8 
KEY WORDS 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 



SECTION 5: UTILITIES 
Unit 3: System/Filedata 

LEARNING SEQUENCE 

The SYSTEM/FILEDATA utility produces various reports regarding files. The 
reports may give such information as a hierarchical list of files, a map of file 
lavout a layout of all permanent files and the space around them, the attributes of 
a file or files, a list of files on tape or tapes, catalogue information for a file or 
files, or creating a "report" file that is usable by library maintenance. The kinds 
of reports that may be produced also include user-defined reports. 

There are three ways in which SYSTEM/FILEDATA may be invoked: 

• ODT COMMANDS 

• WFL COMMANDS 

• CANDE COMMANDS 



The WFL iob below executes SYSTEM/FILEDATA to find the attributes 
CREATIONDATE AND LASTACCESS of the files in the directory CONCEPTS under 
the usercode RWD. The output is directed to the terminal. 



00000100 BEGIN JOB UTILl ; 

00000200 % 

00000300 RUN SYSTEM/FILEDATA . .cm* /-ntr cr-Dt7rM..\ 

00000400 ("A:DIR = (RWD)CONCEPTS ON SYSTEMSED LASTA CRE SCREEN") 

00000450 STATION=139 ; 

00000500 % 

00000600 % 

00000700 END JOB ; 

The output received at the terminal is shown on the next page. This type of 
redirection of the output is dependent on the device being used and the structure 
of the report. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 



SECTION 5: UTILITIES 
Unit 3: System/Filedata 



LEARNING SEQUENCE 



BURROUGHS LARGE SYSTEMS 2372 REPORT 
OF 02/05/85 AT 14:43:18. VERSION 35.200 



FAMILY = SYSTEMSED. ON UNIT 50 

SERIAL NUMBER = 814114 CREATED 3/14/84. 



SELECTED FILE ATTRIBUTES 



(RWD) 

. CONCEPTS 
. . CLASS 
... 3 

. . DATA 



CREATIONDATE= 7/31/84 @ 15:03:44 
LASTACCESSDATE= 1/14/85 @ 18:56:46 



JOB 
. 1 : 

WFL : 

WFL2 : 

NEWBB 

PROGA 

PROGB 

UTILl 

UTIL3 



CREATIONDATE= 7/31/84 @ 15:13:31 

LASTACCESSDATE= 1/14/85 @ 18:47:13 
CREATIONDATE= 7/26/84 @ 16:09:58 
LASTACCESSDATE= 2/01/85 @ 14:40:01 
• CREATIONDATE= 7/26/84 @ 17:09:15 
LASTACCESSDATE= 1/14/85 (a 18:48:26 
CREATIONDATE= 7/26/84 © 17:14:45 
LASTACCESSDATE= 1/14/85 ® 18:56:16 

■ CREATIONDATE= 7/26/84 @ 17:14:40 
LASTACCESSDATE=10/08/84 @ 13:27:33 

• CREATIONDATE= 3/01/77 (& 00:00:00 

■ LASTACCESSDATE= 7/26/79 @ 00:00:00 
CREATIONDATE= 2/05/85 @ 09:33:50 

T.ASTACCESSDATE= 2/05/85 @ 14:43:13 
CREATIONDATE= 2/05/85 @ 11:37:01 
LASTACCESSDATE= 2/05/85 @ 14:39:08 



FILECOPY 
PROGANEW 
PROGBNEW 
TASKVALUE 



CREATIONDATE= 7/31/84 @ 15:42:16 
LASTACCESSDATE= 1/14/85 @ 19:02:07 

• CREATIONDATE= 3/01/77 @ 00:00:00 
LASTACCESSDATE= 1/14/85 @ 18:53:46 

• CREATIONDATE= 3/01/77 @ 00:00:00 
'lASTACCESSDATE= 1/14/85 @ 18:54:42 

• CREATIONDATE=10/08/84 @ 13:32:14 
LASTACCESSDATE= 1/14/85 @ 18:55:42 



SELECTED FILE ATTRIBUTES 
FILE ATTRIBUTES INPUT WAS: 
''A:DIR = {RWD)CONCEPTS ON SYSTEMSED LASTA CRE SCREEN" 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 

SECTION 5: UTILrnES 
Unit 3: System/FUedata 



LEARNING SEQUENCE 

The example below failed because the report being generated had a line width of 
132 characters. In this instance, there are other options available. 

OQOOOIOOBEGIN JOB UTILl ; 

00000200% 

00000300 RUN SYSTEM/FILEDATA 

noonnAO" Mix?.nTP = fR wn^mNr.EPTS ON SYSTEMSED NA TTY") ; 

00000450 STATION=139 ; 

00000500% 

00000600% 

00000700END JOB ; 

LISTDIRECTORY INPUT WAS: 
'•F:DIR = (RWD)CONCEPTS ON SYSTEMSED NA TTY" 
**ERROR** OUTPUT REQUIRES GREATER LINE WIDTH. 

The following example illustrates a way to retrieve the information from a remote 
terminal using a WFL job and the CANDE command BACK. 

00000100 BEGIN JOB UTILl ; 

00000200 % 

00000210 OPTION =(BDBASE) ; 

00000220 BDNAME = RWD ; 

00000300 RUN SYSTEM/FILEDATA 

00000400 ("F : DIR = (RWD)CONCEPTS/CLASS ON SYSTEMSED NA PR") ; 

00000500 % 
00000600 END JOB ; 

Once the job has been executed, then you may look at the printer backup files 
designated by RWD with the BACK command. 



BACK RWD ON EDUCATION 



LIST 



% ASSUMES THAT BACKUP FILES ARE 
GOING TO EDUCATION 

% SUB COMMAND OF BACK 

ALLOWS YOU TO LOOK AT A BACKUP 
FILE AT A TERMINAL 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 



SECTION 5: UTILITIES 
Unit 3: System/Filedata 



LEARNING SEQUENCE 



100 




200 




300 




400 FAMILY 


500 




600 




700 




800 




900 




1000 




1100 


1 


1200 




1300 


2 


1400 


3 


1500 


4 


1600 


5 


1700 


6 


1800 


7 


1900 


8 


2000 


9 


2100 


10 


2200 


11 


2300 


12 


2400 


13 


2500 


14 


2600 


15 


2700 


16 


2800 


17 


2900 


18 


3000 




3100 


19 


3200 


20 


3300 




3400 




3500 




3600 




3700 




3800 





BURROUGHS LARGE SYSTEMS 2372 REPORT 
OF 02/05/85 AT 15:09:39. VERSION 35.200 

HIERARCHICAL DIRECTORY STRUCTURE. 



(RWD) 

CONCEPTS 

CLASS 

. 3 

. . DATA 

. JOB 

. . 1 

. WFL 

. WFL2 

. NEWBB 
. PROGA 
. PROGB 
. UTILl 
. UTIL3 
. WFL2B 
. WFL3A 
. WFL3B 
. WFL4A 
. UTILll 
. FILECOPY 
. PROGANEW 
. PROGAOLD 
. PROGBNEW 
. PROGBNEW 
. . PATCH 
. TASKVALUE 



PAGE 1 



DATA 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

ALGOLSYMBOL 

COBOLCODE 

ALGOLCODE 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

JOBSYMBOL 

DATA 

COBOLSYMBOL 
COBOLSYMBOL 
ALGOLSYMBOL 

ALGOLSYMBOL 
JOBSYMBOL 



LISTDIRECTORY INPUT WAS: 
: DIR = (RWD)CONCEPTS/CLASS ON SYSTEMSED NA PR" 
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BURROUGHS LARGE SYSTEMS 2372 REPORT OF 02/25/86 AT 13:14:08. VERSION 36.130 



FAMILY = SYSTEMSED. ON UNIT 51 
SERIAL NUMBER = 814114 CREATED 3/03/85. 



HIERARCHICAL DIRECTORY STRUCTURE. 



PAGE 1 



FILE CREATION DATE LAST 
NUMBER DATE ACCESSED FILEKIND 



cn 

I 

M 

00 



1 


2/25/86 


2/25/86 


BACKUPPRINTER 


CRUNCH 


A 


2 


3/20/84 


12/18/85 


DC ALGOL SYMBOL 


CRUNCH 


A 


3 
4 


5/03/85 
5/01/85 


5/03/85 
5/01/85 


DATA 
DATA 




P 
P 


5 
6 
7 
8 
9 

10 
11 


5/06/85 
9/04/85 
9/04/85 
5/03/85 
4/19/85 
9/04/85 
9/04/85 


5/06/85 
9/04/85 
9/04/85 
5/03/85 
4/19/85 
9/04/85 
9/04/85 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CRUNCH 
CRUNCH 
CRUNCH 
CRUNCH 
CRUNCH 
CRUNCH 


P 
P 
P 
P 
P 
P 
P 



CONTROLLED 
STATUS CLASS SEGMENTS 



2970 



12 
2716 
2717 


8/14/85 

12/14/82 

8/13/82 


12/16/85 
12/14/82 
12/14/82 


JOBSYMBOL 
COBOLCODE 
COBOL SYMBOL 


CRUNCH 
CRUNCH 
CRUNCH 


A 
P 
P 


2718 
2719 


2/07/86 
7/25/85 


2/07/86 
8/09/85 


OCALGOLSYMBOL 
DCALGOLCODE 


CRUNCH 
CRUNCH 


P 
A 


2720 


7/25/85 


2/09/86 


DCALGOLCOOE 


CRUNCH 


A 


2721 
2722 
2723 


7/25/85 

12/22/82 

7/25/85 


7/25/85 

12/22/82 

7/25/85 


OCALGOLSYMBOL 

DCALGOLCOOE 

OCALGOLSYMBOL 


CRUNCH 
CRUNCH 
CRUNCH 


A 
A 
A 


2724 


7/25/85 


8/09/85 


ALGOLSYMBOL 


CRUNCH 


P 


2725 
2726 
2727 


11/04/85 
2/24/86 
7/02/85 


2/14/86 
2/24/86 
2/24/86 


DATA 

SEQDATA 

SEQDATA 


CRUNCH 
CRUNCH 


A 
P 
P 



1358 

1008 
1000 

2040 
30 
30 
30 
30 
30 
30 

5586 



14 
27 
28 
97 

56 
27 

27 

42 

27 

42 

138 

14 

11308 



322 

980 

14 

222042 



HIERARCHICAL NAMES 

BO 

0000290 
. 0000291 
. . OOOLINE 
DTS 
MF 

JOHN 
. TEST 
JUNK 
MT983 

. PRINTERFILE 
STATl 
STAT3 
JOHN IN 
JUNK IN 
VBSTAT 
VBSTATUS3 
# 

*WFL 
RUN 

COMS 
. TEST 
. . OBJECT 
. SCREENPRINT 
« 

PATCHES 
. B20 
UTILITY 
UTILITY 
COMS 
COMS 

. SYMBOL 
DEBUG 
SYMBOL 
# 

PRINTOOC 
« 

USERDATAFILE 
. ALL 
. . LIST 
. CURRENT 
OEFAULTDEFINES 







w 






w 






S 






Cfl 






> 






5S 






D 


a 


M 


03 


3. 


PI 


C/1 




^ 




M 


J^ 


O) 




o 


o 




'Z 


o 


CO 




o 


«< 


Cfl 




M 










< 


3^ 


a 


O 


1^ 
&■ 
a 
a. 


H^ 




5. 


B 


o 




CO 


> 
•z 
a 



TOTAL SEGMENTS SHOWN 



1560659 



LISTOIRECTORY INPUT WAS: 



•F:PR;" 



BURROUGHS LARGE SYSTEMS 2372 REPORT OF 02/25/86 AT 13:14:08. VERSION 36.130 



I 



FAMILY = SYSTEMSED. ON UNIT 51 
SERIAL NUMBER = 814114 CREATED 3/03/85. 



AREA LAYOUT OF FILES. 



FILE 
NUMBER 



FAMILY SEGMENT SIZE IN 
AREA AREACLASS INDEX ADDRESS SEGMENTS 



3 
4 
5 

6 
7 
8 
9 

10 
11 
12 
13 
14 



ROW 
ROW 
ROW 
ROW 
ROW 



ROW 
ROW 
ROW 



ROW 
ROW 



ROW 
ROW 



ROW 
ROW 
ROW 




1 
2 
3 
4 









ROW 

ROW 

ROW 

ROW 









1 1121809 

1 1125421 

1 1126625 

1 1127829 

1 1129537 



1 1175553 
1 1176057 
1 1180999 



1 1304412 
1 1258285 



1 1296771 
1 1297791 



ROW 



ROW 1 



1 

1 

2 

1 

2 

1 

1 

1 

1 



460338 

541905 

310268 

543517 

302393 

184214 

203407 

666399 

388427 



700 
700 
700 
700 
170 



504 
504 
350 



1008 
1000 



1020 
1020 



30 
30 
30 
30 
30 
30 
14 
42 
182 



SEGMENTS 
ON FAMILY 



2970 FAMILY 1 

1358 FAMILY 1 

1008 FAMILY 1 

1000 FAMILY 1 

2040 FAMILY 1 

30 FAMILY 1 

30 FAMILY 1 

30 FAMILY 2 

30 FAMILY 1 

30 FAMILY 2 
30 FAMILY 1 
14 FAMILY 1 
42 FAMILY 1 



PAGE 1 

FILENAME 
*B0/0000290/0000291/000L INE . 



*0TS/MF . 

*DTS/ JOHN/TEST. 
*DTS/JUNK . 
*DTS/MT983/PRINTERFILE. 

*DTS/STAT1. 

*0TS/STAT3. 

*DTS/JOHNIN. 

*DTS/JUNKIN. 

*DTS/VBSTAT. 

*DTS/VBSTATUS3. 

*WFL/RUN/COMS/TEST. 

*WFL/C0MS/GEMC0S/F0RMATL1BRARY. 

*WFL/L1NC. 







CO 






M 






50 






^ 






w 






> 






S5 






a 


C3 


Cfl 


ts 


3 


m 


VI 




o 




M 


d 




• • 


o 


o 




z 


o 


0) 




o 


v< 


V? 




M 






n 




< 


3 


c 


O 






33 


^ 


3 


Pi 


^ 


f[ 


►fl 


1 


i 


r 
o 




w 


> 

O 



CO 



BURROUGHS LARGE SYSTEMS 2372 REPORT OF 02/25/86 AT 13:14:08. VERSION 36.130 



FAMILY = SYSTEMSED. ON UNIT 51 

SERIAL NUMBER = 814114 CREATED 3/03/85. 



THE DISK CHECKERBOARD. 



PAGE 135 



SPACE OCCUPIED BY LOCKED FILES 



SPACE BETWEEN ROWS 



FAMILY BASE 


END 








INDEX ADDRESS 


ADDRESS 


LENGTH 




AREA 


2 


360945 


361126 


182 


ROW 


1 


2 


361127 


361326 


200 


ROW 


4 


2 


361327 


361356 


30 


ROW 


106 


2 


361368 


361661 


294 


ROW 





2 


361662 


362021 


360 


ROW 


16 


2 


362022 


362051 


30 


ROW 


15 


2 


362052 


362081 


30 


ROW 


17 


2 


362082 


362111 


30 


ROW 


19 


2 


362112 


362141 


30 


ROW 


21 


2 


362142 


362145 


4 


ROW 





2 


362150 


362205 


56 


ROW 


9 


2 


362206 


362209 


4 


ROW 





2 


362210 


362219 


10 


ROW 





,« 2 


362220 


362223 


4 


ROW 





T 2 


362224 


362226 


3 


ROW 





i» 












o 


. 


ft- fw-^tarA^i^r- 


nfti r- AftJTi 


WO- 


IIT 



FILENAME 

(RW0)LINC/WFL/LINC11. 

(ADDS0B)DATADICT10NARY/AUDIT2. 

( SYSTEMSED) IDC/CONF IG/021086 . 

{DLG)GEMCOSCLASS/OMNI/COMS/ INSTALLATION. 

*BOOK/DATADICTIONARY/ENGLISH. 

(SYSTEMSED) IDC/CONF lG/022186 . 

(SYSTEMSED) 1DC/CONFI6/022186. 

(SYSTEMSED) IDC/CONF IG/022186. 

(SYSTEMSED) IDC/CONF IG/022186. 

(RWD)WFLCLASS/WFL/EC/TIMECARD. 

( SYSTEMSED) SMF I I/EXAMPLES/QUERY/WORKLOAD/- 

GLOSSARY/SYMBOL. 

(DMJ)EASDB/LINCCONTRO. 

(JCAJEDITOR/OPTIONS. 

(0MJ)EASDBII/LINCC0NTRO. 

( RWD)WFLCLASS/WFL/EC/MSTRBKUP . 



FAMILY BASE 
INDEX ADDRESS 



END 
ADDRESS 



2 361357 361367 



LENGTH 



11 



2 362146 362149 



d 3 



M 



C9 



TOTAL IN-USE SEGMENTS ON FAMILY 2 = 333208 



TOTAL CHECKERBOAROED SEGMENTS ON FAMILY 2 = 29019 



2 362227 THRU END OF FAMILY. S- 

n 

3 



o 

o 



a 

to 



B 
w 

> 

z 

D 
CD 

en 

-a 
o 
o 



NUMBER OF BLOCKS VS SIZE OF BLOCKS. 



>= 2451 



>= 1951 



>= 1451 



NUMBER OF BLOCKS. 



en 



>= 951 



>= 451 



a 

a 



a 

►»? 
a 
a 

a. 



o 



B 

> 
a 

00 
en 
o> 

-J 



"<100'"<200""<300 <400 <500 <600 <800 <1000 <1500 <2000 <2500 <3000 <5000 <7000 >=7000 

SIZE OF BLOCKS IN SEGMENTS 



# = IN USE 



AVAILABLE 



CHECKERBOARD INPUT WAS: 



•CH;" 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILTTIES 

SECTION 5: UTIUnES 
Unit 3: System/Filedata 



PRACTICE EXERCISE 



Write a WFL job that will print the attributes for the files under the usercode 
CEC a hierarchical list of those file names, and a structure map of the family 
EDUCATION using SYSTEM/FILEDATA. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILmES 



UTIUnES 

Unit 4 

System/Filecopy 

OBJECTIVE 

Construct a WFL job that will copy files to a backup location using 
SYSTEM/FILECOPY. 

PURPOSE 

This utility allows the user to generate a WFL job that will copy files using 
Library Maintenance routines based on a time/date function. 

RESOURCES 

a. Student Materials Se^°^J'°" ^ 

b. A Series System Software Utilities Section 5 
KEY WORDS 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILmES 

SECTION 5: UTILITIES 
Unit 4: System/Filecopy 



LEARNING SEQUENCE 

This utility is intended to simplify the library maintenance ^^^^f '"^"Js °f ^f^^f ^^ 
site. This is accomplished by allowing the user to specify the files and/or kinds of 
fi es that are to be copied. The user may request that the utility create a card 
deck of the copy requests. SYSTEM/FILECOPY will create a copy deck tailored to 
the specifications supplied by the user. 

SYSTEM/FILECOPY will use the supplied specifications relating to the location ^^ 
and/or types of files to be copied and create a copy deck. At this point, it wixi 
Sher st'a'rt the copy at that time or save the copy deck for ^ "ture ijse. Once a 
deck is created, it may be used repeatedly without executing SYSTEM/FILECOPY 
again. If you wish the copy deck to be dynamic in nature, then the option is 
provided to execute SYSTEM/FILECOPY from a WFL ]ob and execute the deck 
generated automatically. 



BEGIN JOB FILECOPY/JOB ; 
DESTNAME = RJESYSCEC ; 
USER = 0718WFL/CLASS ; 
FAMILY DISK = EDUCATION OTHERWISE DISK ; 

RUN *SYSTEM/FILECOPY ; 

-.——.-.c-^ .T^mr^Ti n-iinaioc % TIME FRAME 

FILES ( (0718WFL)= % WHAT FILES 
FROM EDUCATION(PACK) ) 

TO BKUP{TAPE) % WHERE TO 

DECKLABEL LW/FILECOPY/DECK % NAME OF JOB CREATED 

inrKnFPK % PERMANENT 

LOCKDECK ^ ^^ ^^^ EXECUTE 

, ^^^^^ % END OF DATA DECK 

RUN *SYSTEM/DUMPALL("L LW/FILECOPY/DECK;L LW/FILECOPY/JOB"); 

% LIST JOB CREATED 
END JOB 

The preceding example would build a WFL source deck called LW/FILECOPY/DECK. 
Thfs ^s to a permanent file and will not automatically execute. The files to be 
copied are all the files that have been updated after 1/28/85 on the family 
EDUCATION under the usercode 0718WFL. They will be copied to a tape called 
BKUP. 
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A SERIES AND B 5/6/7000 WORKFLOW AND UTILrnES 

SECTION 5: UTIUnES 
Unit 4: System/Filecopy 



LEARNING SEQUENCE 

In the next example, the job is executed at the bottom °^J'l^!,P|ee showing jo^^ 
responses. On the next page is the output generated by FILECOPY utility with the 
WFL source that was generated on the page after that. 

OOOOOIOOBEGIN JOB UTIL3 ; 
00000200 % 

00000210 OPTION = (BDBASE) ; 
00000220 BDNAME = RWD ; 
00000300 RUN ♦SYSTEM/FILECOPY ; 
00000400 EBCDIC CARD 

ZTolll "=1-l\?«RWmcONCE'^TS/OLASS/= FROM S.STEMSED,PACK„ 

00000600 TO DISK(PACK) 

00000700 DECKLABEL {RWD)COPYJOB 

00000800 LOCKDECK 

00000900 NOZIP 

00001000? 

00001100 RUN *SYSTEM/DUMPALL ^ 

00001200 ("L (RWD)CONCEPTS/CLASS/UTIL3; L (RWD)COPYJOB") ; 

00001220 

00001240 PB "RWD ON EDUCATION" SAVE ; 

00001260 

00001300 END JOB ; 

If you start this job from a terminal, you see the following results. 

ST 

RUNNING 1789 
JOB 1790 IN QUEUE 50 

1790 BOJ UTIL3 

1790/1791 BOT *SYSTEM/FILECOPY 

1791 {RWD)COPYJOB REMOVED ON SYSTEMSED PK50. 
1792/1792 EOJ JOB COPY 

1790/1791 EOT *SYSTEM/FILECOPY 

1790/1793 BOT *SYSTEM/DUMPALL ON SYSTEMSED 

1790/1793 EOT *SYSTEM/DUMPALL ON SYSTEMSED 

1790/1794 BOT *SYSTEM/BACKUP 
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LEARNING SEQUENCE 

The following data is generated from FILECOPY itself as the copy deck is being 
generated. 

MIX NUMBER 1790/1791 

200 BURROUGHS LARGE SYSTEMS 2372 FILECOPY DUMP 

r\v o/nR/fi=; VER^inM S R.200 

300 

400 

500 CREATED AFTER 05/23/84 „„„,„, ^„^\ 

600 FILES ({RWD)CONCEPTS/CLASS/= FROM SYSTEMSED(PACK)) 

700 TO DISK{PACK) 

800 DECKLABEL (RWD)COPYJOB 

900 LOCKDECK 

1000 NOZIP 

1100 

1200 

1400 SUMMARY OF TASK 1. -CREATED-. WITH REQUESTED AND DEFAULT 
OPTIONS. 

1600 FILES WHICH PASSED THE TEST CREATED AFTER 5/23/84 WERE 

UTILIZED. 
1700 UTILIZED FILES WILL BE COPIED TO UlSK 

IsOO AND THE 'WFL' FILE SAVED AS {RWD)COPYJOB ON DISK. NOT ZIPPED. 
1900 OUTPUT FILE(S) CALLED DISK. 
2000 
2100 14 FILES WERE REQUESTED FOR COPYING. 

2200 
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LEARNING SEQUENCE 



4100 



If only the second listing from DUMPALL is ^f'^^^^'JT'tS^^l^' ^"Jjlke !fo^te of 
h«<! been created to do the copy ng necessary to complete the tasK. mbkc "o*-*: " 
Te ?rt entry generated. DUMMy' is the filler used when there are no more files 
that match the parameters given. 

MIX NUMBER 1790/1793 
1600 FILE ATTRIBUTES FOR: FIN TITLE=(RWD)COPYJOB ON SYSTEMSED 

'''' hostnIme=trainingi kind=pack intmode=ebcdic 

EXTMODE=EBCDIC FILETYPE=0 MINRECSIZE=0 MAXRECSIZE-15 
RTnrKSIZE=450 FRAMESIZE=48 FILEUSE=IO BUFFERS=2 „^,e , 

?pSt ATE-FULLTRANS PROTECTION=SAVE P0PULATI0N=1 AREAS=1 
iREALE^GTS^Sr FlLiBLE LASTREC0RD=22 FILEKIND=DATA 
unwcmi^^S-i PRUNCHED USERINFO=000000000000 

CYCLE=1 VERSION=0 SAVEFACTOR=10 SECURITYTYPE-PRlVAlt, 
SECURITYUSE=IO PACKNAME=SYSTEMSED 

1FI 7BEGIN JOB COPY; CLASS= 50; FAMILY DISK = DISK ONLY; 

2E; 'COPY % FROM SYSTEM 2372: GENERATED ON 2/05/85 

3I; % DUMPING CRITERIA USED WAS CREATED AFTER 5/23/84 

4!; %SOURCE IS (RWD)CONCEPTS/CLASS/= ON SYSTEMSED 

5E! (RWD)C0NCEPTS/CLASS/3/DATA, J^torsYMBOL 7/31/84 

6E! (RWD)CONCEPTS/CLASS/ JOB/1. l^°npc\^RnT •^'26?84 

7E! (RWD)CONCEPTS/CLASS/WFL SIymIo^ i/26'/84 

8E! {RWD)C0NCEPTS/CLASS/WFL2. ^MrnrSYMBOL 7/26/84 

.«!! i^^.sgg^sfp?r^afsr/?^s^^^^^ rcoBoSr7/2^\r' 

i;^; l^wS cSNcfpS/CLAir/Umi;-' SIymIoL 2^0^/85 

12E! (RWD)C0NCEPTS/CLASS/UTIL3 "tf^nlsYMBOL 10/12/84 

13E! (RWD)C0NCEPTS/CLASS/WFL2B. ^f^^JZSl 7/27/84 

14E! (RWD)C0NCEPTS/CLASS/WFL3A. SrIymbSl 10/12 84 

15E! {RWD)C0NCEPTS/CLASS/WFL3B, -'InRCYMROL 7/27/84 

16E' RWD)C0NCEPTS/CLASS/WFL4A. ^n.^J mw«4 
ni RWD CONCEPTS/CLASS/FILECOPY, *o?Tn«tvJRnT 10/08/84 

18Ei (RWD)CONCEPTS/CLASS/TASKVALUE. %JOBSYMBOL 10/08/84 

m l.^^..V^^nLlf^0l%^^^^^ %NON-EXISTANT FILE WITHOUT 

TRAILING COMMA 
21E! FROM SYSTEMSED (KIND=PACK) 



22E! TO DISK 
23E! ?END JOB 
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LEARNING SEQUENCE 



The example of SYSTEM/FILECOPY presented below will find those files whose last 
access date was before 01/01/86. The files considered are those in the directory 
(WFL)/ ALGOL on the family SYSTEMSED. Since this is a °°Py,"Vw7,\i^,^,oi RM 
destination is disk. The name of the job source to be created s (yL)ALGOLRM 
and it is made permanent through the use of the LOCKDECK clause. The NOZIP 
statement prevents the job from being executed. 



BEGIN JOB FILECOPYREMOVE; 
RUN •SYSTEM/FILECOPY; 
DATA CARD 
EXPIRED AFTER 01/01/86 

FILES ((WFL)ALGOL/= FROM SYSTEMSED(PACK)) 
TO DISK{PACK) 
DECKLABEL (WFL)ALGOLRM 
LOCKDECK 

. NOZIP 
? 

END JOB 



The beauty oi mis uiuuy is inai. yuu ma, exe--.- ", ,-'~~ ".".;'" " j ♦u,.^ ^^,Mfx, 
paee) to copy the older files that have not been used for a while and then modify 
the job itself to remove the files. All that is necessary is to change the copy 
statement to a remove statement using the files already provided. 
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LEARNING SEQUENCE 



?BEGIN JOB COPY; CLASS= 50; FAMILY DISK = DISK ONLY; 
?COPy % FROM SYSTEM 2372: SEMEftATED ON 

X DWIire CRITERIA USED WAS EXPIRED AS OF 1/01/86 
XSOURCE IS (WFL)ALeOL/= ON SYSTEMSED 



2/25/86 



WFL ALGOL/LAB/EX/16, 
(WFL ALGOL/LAB/16/B^ 
(WFL ) ALG0L/LAS/WFL/0/ALG0L/DATABWPB2 , 
■WFL)ALG0L/LAB/WFL/D/ALG0L/DATAPR0B1, 

WFL ALG0L/LAB/WFL/D/ALG0L/DATAPR0B2 , 

WFL algol/lab/wfl/d/algol/unsorteddAta, 

WFL ) ALGOL/LAB/WFL/D/CLASS/COBOL , 

WFL ALGOL/LAB/WFL/D/CLASS/SCOREi, 

WFL ALGOL/LAB/WFL/D/CLASS/SCORrS/GOOO, 

WFL ALGOL/LAB/WFL/D/CLASS/SCOR /SAVE 

WFL ALGOL/LAB/WFL/D/SCORES, 

WFL ALGOL/LAB/WFL/D/SPORTS, 

WFL)ALG0L/LAB/WFL/0/SP0RTSNAMES. 

WFL)ALGOL/LAB/WFL/D/STUOENTINFO. 

WFL ALGOL/LAB/WFL/I, 

WFL ALGOL/LAB/WFL/E, 

WFL ALGOL/LAB/WFL/3. 

WFL)ALG0L/LAB/WFL/4, 

WFL ALGOL/LAB/WFL/13, 

WFL ALGOL/LAB/WFL/14, 
,WFL)alG0L/^LAB/;WFL/4A, 
iWFL jALG0L/LAB/WFL/5A, 
(WFL)ALG0L/LAB/WFL/7A, 
■WFL)ALG0L/LAB/WFL/7B. 

WFL ALGOL/LAB/WFL/106, 

WFL ALGOL/LAB/WFL/IOC, 

WFL ALGGL/LAB/WFL/llB, 

WFL)ALG0L/LAB/WFL/12C. 

WFL ALG0L/LAB/WFL/1-6B. 
,WFL ALGOL/LAB/WFL/LAB^, 
iWFL ALG0L/LAB/WFL/LAB2/0UTPUT, 
(WFL)ALG0L/LAB/WFL/LAB3. 

(wfl;algol/lab/wfl/sample/bill/test, 
'wfl)algol/lab/wfl/sample/bind^ 
WFL algol/lab/wfl/sample/init/database. 



XALGOLSYMBOL 4/24/85 
XALGOLSYMBOL 4/24/85 
XDATA 2/16/82 
XDATA 5/07/84 
XOATA 2/23/82 
XOATA 2/25/82 
XDATA 10/16/84 
%DATA 10/23/84 
XDATA 10/15/84 
XDATA 10/16/84 
XDATA 5/07/84 
XDATA 2/24/82 
XDATA 5/07/84 
XDATA 2/24/82 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 11/13/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 7/25/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 5/02/85 
XALGOLSYMBOL 2/08/85 
XALGOLSYMBOL 7/25/85 
XALGOLSYMBOL 10/30/84 
XDATA 10/18/84 
XALGOLSYMBOL 10/29/84 
XALGOLSYMBOL 3/11/85 
XALGOLSYMBOL 3/11/85 
XALGOLSYMBOL 3/11/85 



WFL ALGOL/LAB/WFL/SAMPLE/INIT/CONTROLFILE, XALGOLSYMBOL 3/11/85 



WFL)ALG0L/LAB/WFL/SAMPLE/SEEK/DATA, 



XDATA^ 10/16/84 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 

XALGOLSYMBOL 



WFL )ALG0L/LAB/WFL/SAMPLE/TEST/E0F , 

WFL)ALGOL/LAB/WFL/SAMPLE/TEST/SCAN, 

WFL ALGOL/LAB/WFL/SAMPLE/TEST/SEEK. 

WFL)ALGOL/LAB/WFL/SAMPLE/TEST/ERNlf, 

WFL)ALG0L/LAB/WFL/SAMPLE/TEST/PW0RD, 

WFL)ALGOL/LAB/WFL/SAMPLE/TEST/D£LIMS, 

WFLJALGOL/LAB/WFL/SAMPLE/TEST/FORMAT. 

WFL)ALGOL/LAB/WFL/SAMPLE/TEST/POINTEft, 

WFL)ALGOL/LAB/WFL/SAMPLE/TEST/ANYFAULt, ^.v.^...,, -,„„,. 

WFL ALGOL/LAB/WFL/SAMPLE/TEST/CONTROLFIlE, XALGOLSYMBOL 

wfl algol/lab/wfl/sample/test/lastrectest, xalgolsymbol 

wfl)algol/lab/wfl/sample/test/cursorposit1on, 

.algqlsymbol 3/11/85 

,wfl]algol/lab/wfl/sample/test/findlastrecord, 

;algolsymbol 3/11/85 
x 51 files will be dumped. 

wjmmy/lastfilefrom/systemsed won-existant file without trailing commax00008600 
from systemsed (kino=paclo x00008700 

TO DISK ; X00008800 

?EN0 JOB X00008900 



3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 
3/11/85 



XOOOOOOOO 
XOOOOOIOO 
X00000200 
X00000300 
X00000400 
X00G00500 
X00000600 
X00000700 
X00000800 
X00000900 
XOOOOIOOO 
XOOOOllOO 
X00001200 
X00001300 
X00001400 
X00001500 
X00001600 
X00001700 
X00001800 
X00001900 
X00002000 
X00002100 
X00002200 
X00002300 
X00002400 
X00002500 
X00002600 
X0O0027O0 
X00002800 
X00002900 
X00003000 
X00003100 
X00003200 
X00003300 
X00003400 
X00003500 
X00003600 
X00003700 
X00003800 
X0Q003900 
X00004000 
XuOuOtiuu 
X00004200 
X00004300 
X00004400 
X00004500 
X00004600 
X00004700 
X00004800 
X00004900 
X00005000 
X00005100 
XOOOO520O 
X00005300 
XG0G05400 
XG0005500 
X00005600 
X00008500 
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PRACTICE EXERCISE 

Write a WFL job to copy all the files updated since yesterday {5:00 p.m.) under the 
usercode used in the lab. The backup should be placed on a tape called 
CLASSBKUP and the job should start at 10:00 p.m. on the day being backed up. 



5-50 
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UTiUTIES 

Unit 5 

System/Loganalyzer 



OBJECTIVE 



Construct a WFL job that will execute SYSTEM/LOGANALYZER to generate 
reports from system logging. 



PURPOSE 



This utility allows the user to find out information about the system by 
accessing the system log files. 

RESOURCES 

a. Student Materials Section 5 

Unit 5 

b. A Series System Software Site Management Section 7 
KEY WORDS 
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LEARNING SEQUENCE 

The utility SYSTEM/LOGANALYZER program is more of a report generator than it 
IS an analyzer. Its purpose is to allow a user to produce hardcopy reports usine 
the entries in the SYSTEM/SUMLOG file. Since all system activities are entered 
into that file, it is possible for an installation to produce reports based on any of 
those entries. It is, therefore, possible to obtain reports such as all the activities 
for a particular job, for a given time frame, or for a group of operator inputs. 

LOG 0800 OPERATOR DSED 

RUNNING 3198 

^„, , 35.200.141 LOGANALYZER 

02/07/85, 13:28:03, MOP: SYSTEM/MCP35200. 35.200 . SYSTEM SERIAL- 2372 

REQUEST IS: 0800 OPERATOR DSED ^^KiAi.. I6ll 

DSED STOP. 

* UNRECOGNIZED REQUEST. 

LOG 0800 OPERATOR DS 

RUNNING 3199 
„„, , 35.200.141 LOGANALYZER 

02/07/85, 13:28:23, MCP: SYSTEM/MCP35200. 35.200 , SYSTEM SERIAL- 2372 
REQUEST IS: 0800 OPERATOR DS 
LOG FILE IS:*SYSTEM/SUMLOG ON SYSTEMSED 
(LOG FILE IS 4488 RECORDS LONG) 

LOG CONTAINS RECORDS FROM FEB 7, 1985 07:00:13 TO FEB 7, 1985 13:28:25 
(CURRENT 
LOG) 

10:28:33 ->3009 OPERATOR ENTERED: DS. 

10:31:18 ->3018 OPERATOR ENTERED: DS. 

10:27:25 ->2998 OPERATOR ENTERED: DS NONE 

10:24:51 ->3003 OPERATOR ENTERED: DS. 

10:30:28 ->3006 OPERATOR ENTERED: DS. 

11:10:27 ->3138 OPERATOR ENTERED: DS. 

11:30:02 ->3158 OPERATOR ENTERED: DS. 

11:41:24 ->3169 OPERATOR ENTERED: DS. 

12:16:12 ->3184 OPERATOR ENTERED: DS. 

12:29:07 ->3185 OPERATOR ENTERED: DS. 

12:29:47 ->3188 OPERATOR ENTERED: DS. 

12:41:04 ->3189 OPERATOR ENTERED: DS. 

NORMAL TERMINATION FOR LOGANALYZER PROGRAM. 
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LEARNING SEQUENCE 

LOG 1200 BOJ 

RUNNING 3202 

35.200.141 LOGANALYZER 
02/07/85, 13:32:42, MCP: SYSTEM/MCP35200. 35.200 , SYSTEM SERIAL: 2372 
REQUEST IS: 1200 BOJ 

LOG FILE IS:*SYSTEM/SUMLOG ON SYSTEMSED. 
(LOG FILE IS 4541 RECORDS LONG) 

LOG CONTAINS RECORDS FROM FEB 7, 1985 07:00:13 TO FEB 7, 1985 13:32:44 
(CURRENT 

LOG) 



FEB 7, 1985 

12:33:35 BOJ 3191 "?BEGIN JOB;". 

JOB ENTERED SYSTEM: FEB 7, 1985 12:33:35 FROM 
WFL 35 
.200 

QUEUE: 50 

ORIGINATING LSN: 1 MCS: 

PRIORITY: 50 

FEB 7. 1985 

12:34:07 BOJ 3193 "AUTOPRINT/LP00004/ 3191". 

QUEUE: 

ORIGINATING UNIT: 
PRIORITY: 80 

FEB 7 1985 

12:41:21 BOJ 3194 "AUTOPRINT/LP00004/ 3183". 

QUEUE: 

ORIGINATING UNIT: 
PRIORITY: 80 

NORMAL TERMINATION FOR LOGANALYZER PROGRAM. 
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LEARNING SEQUENCE 



LOG 1205 MSG 

RUNNING 3206 

35.200.141 LOGANALYZER 
02/07/85, 13:38:25, MOP: SYSTEM/MCP35200. 35.200 , SYSTEM SERIAL: 2372 
REQUEST IS: 1205 MSG 

LOG FILE IS:*SYSTEM/SUMLOQ ON SYSTEMSED. 
(LOG FILE IS 4616 RECORDS LONG) 

LOG CONTAINS RECORDS FROM FEB 7, 1985 07:00:13 TO FEB 7, 1985 13-38-26 
(CURRENT 
LOG) 

12:10:49 2896 (TOP50TM11)CANDE/TEXT670 CHANGED TO 

(TOP50TM11)BEST1 

/LOG ON TOP50 PK44. 

12:36:54 2896 (TOP50TM2)CORK/DESIGN/DOC REMOVED ON TOP50 

PK44. 

12:36:54 2896 (TOP50TM2)CANDE/TEXT660 CHANGED 

(TOP50TM2)CORK 

/DESIGN/DOC ON TOP50 PK44. 



TO 



12:23:13 
12:23:30 

(21613020)* 
12:23:36 
12:31:57 

(21613020)* 
12:12:33 
12:16:12 
12:16:12 
12:16:33 
12:29:07 
12:29:07 
12:29:14 
12:29:47 
12:29:47 
12:29:58 
12:41:04 
12:41:05 
12:34:05 

EDUCATION 



3186 
3186 

3187 
3187 

3184 

->3184 
3184 
3185 

->3185 
3185 
3188 

->3188. 
3188 
3189 

->3189 
3189 
3192 



STACK EXTENDED FROM 2111 
UNDEFINED VARIABLE FILE @ 

STACK EXTENDED FROM 2111 
UNDEFINED VARIABLE FILE @ 



TO 2233 WORDS. 
067:0027:2 © 



TO 2233 
063:0022 



WORDS. 
;3 @ 



STACK EXTENDED FROM 2111 TO 2233 WORDS. 

OPERATOR ENTERED: DS. 

OPERATOR DSED @ (38924670)* 

STACK EXTENDED FROM 2111 TO 2233 WORDS. 

OPERATOR ENTERED: DS. 

OPERATOR DSED © (38924670)* 

STACK EXTENDED FROM 2111 TO 2233 WORDS. 

OPERATOR ENTERED: DS. 

OPERATOR DSED @ (38924670)* 

STACK EXTENDED FROM 2111 TO 2233 WORDS. 

OPERATOR ENTERED: DS. 

OPERATOR DSED @ (34176380)* 

BD/0003145/0003190/OOOOUTFILE REMOVED ON 



NORMAL TERMINATION FOR LOGANALYZER PROGRAM. 
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LEARNING SEQUENCE 

LOG 1000 COMMENT 

RUNNING 3205 

35.200.141 LOGANALYZER 
02/07/85, 13:38:05, MOP: SYSTEM/MCP35200. 35.200 , SYSTEM SERIAL: 2372 
REQUEST IS: 1000 COMMENT 
LOG FILE IS:*SYSTEM/SUMLOG ON SYSTEMSED. 
(LOG FILE IS 4599 RECORDS LONG) 

LOG CONTAINS RECORDS FROM FEB 7, 1985 07:00:13 TO FEB 7, 1985 13:38:06 
(CURRENT 
LOG) 

NO ENTRIES FOUND FOR THIS REQUEST. 



LOG 1205 JOB 3191 

RUNNING 3203 

35.200.141 LOGANALYZER 
02/07/85, 13:34:01, MCP: SYSTEM/MCP35200. 35.200 , SYSTEM SERIAL: 2372 
REQUEST IS: 1205 JOB 3191 

LOG FILE IS:*SYSTEM/SUMLOG ON SYSTEMSED. 
(LOG FILE IS 4558 RECORDS LONG) 

LOG CONTAINS RECORDS FROM FEB 7, 1985 07:00:13 TO FEB 7, 1985 13:34:03 
(CURRENT 
LOG) 



FEB 7, 1985 

12:33:35 BOJ 3191 "7BEGIN JOB;". 

JOB ENTERED SYSTEM: FEB 7, 1985 12:33:35 FROM 
WFL 35 
.200 

QUEUE: 50 

ORIGINATING LSN: 1 MCS: 

PRIORITY: 50 

12:33:36 BOT 3192 SYSTEM/BACKUP. 

CODE COMPILED: MAR 14, 1984 10:01:55 BY 
DCALGOL 34 

— AND MUCH MORE — 



5-55 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILTTIES 

SECTION 5: UTHJTIES 
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PRACTICE EXERCISE 



Write a WFL job to check on all the information about a job with the mix number 
of 2983. 
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UTILITIES 

Unit 6 

Additional Utilities 

OBJECTIVE 

Identify the uses of other utilities available on large systems. 

PURPOSE 

There are several other utilities that may be of use on the system. This 
unit will identify some of these. 

RESOURCES 

a. Student Materials Section 5 

Unit 6 

b. A Series System. Software Utilities 

c. A Series System Software Site Management 

KEY WORDS 
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LEARNING SEQUENCE 

There are many more utilities that are available to the large system user than just 
the five presented in the previous units. The following is a brief description of 
some of the additional utilities available that may be of use. 

• SYSTEM/COMPARE 

This utility will compare any number of pairs of files. The comparison is 
on a bit by bit basis within each record. When the comparison between 
two records fails, the records are listed on the line printer. Some of the 
options allow for the comparison of sequence numbers and maximum error 
limits. 

• SYSTEM/DCSTATUS 

The SYSTEM/DCSTATUS utility program is intended to give an installation 
the ability to produce run-time reports and/or "snapshots" of the data 
communications sub-system operations. It is possible to obtain reports for 
stations, lines, quad-line adapters/clusters, NSP/DCP or all of the previous 
elements. 

With this utility, the user may define where the reports are to go. The 
default report medium is the line printer. However, the reports may be 
directed to a terminal. In that case, the output format will be modified 
for the 72 character line width. 

Reports may be generated not only on the currently active network 
definition files but on other network definition files. However, when non- 
active files are being accessed, there are some restrictions on what may 
be reported. 

It should be understood that in order to interpret the reports generated 
by SYSTEM/DCSTATUS an understanding of NDLLII/NDL and NSP/DCP is 
required. 
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LEARNING SEQUENCE 



SYSTEM/DUMPANALYZER 

This utility is used to analyze full system dumps. When an error is 
detected in the system that was not caused by a user program (task), the 
MOP will cause all of memory to be written out to a tape. This tape 
will be labeled "MEMORY/DUMP". This tape then becomes the input file 
to SYSTEM/DUMPANALYZER. Dumpanalyzer has several ways it may be 
executed. 

- The simplest method is the ODT command (DA). With this command 
SYSTEM/DUMPANALYZER is entered into the mix and will look for 
the input file labeled MEMORY/DUMP. When the analysis is finished, 
it is written out to the line printer. 



- SYSTEM/DUMPANALYZER may also be run using the ODT as one of 
the input files. "OPTIONS" command tells the utility which of 
dumpanalyzer options are to be used. The output will go to the line 
printer. 

- The third method available is to run the utility from a remote 
terminal. When running from a remote terminal, the output may be 
directed to the line printer and/or the terminal. 

SYSTEM/MAKEUSER 

This utility is used by the installation in order to establish controls over 
access to the system by local and/or remote users. This is accomplished 
by the execution of SYSTEM/MAKEUSER, which will create or update a 
data base known as SYSTEM/USERDATAFILE. This data base will contain 
a list of valid usercodes and other kinds of data relative to the users of 
the system. The security system, of which SYSTEM/MAKEUSER is a 
major facet, is designed to meet the following goals: 

- Provide a single file with information about all users that is easily 
maintained by the installation management. 

- Supply file and system security that can be applied to both batch and 
data comm users. 

- Allow installations to easily tailor the file to their own needs. 

- Make the file easily accessible through both random and serial 
accessing methods. 
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LEARNING SEQUENCE 



SYSTEM/MAKEUSER (continued) 

All access to the USERDATAFILE is controlled and provided by 
procedures of the MCP. These procedures are responsible for the 
enforcement of the system security through the use of the information in 
the USERDATAFILE. 



• SYSTEM/GUARDFILE 

This utility is a further extention of security for use by installations 
requiring a higher level of restricted access to certain files by various 
users. SYSTEM/GUARDFILE is used to create a file that describes the 
relationship between various files and various users and/or programs. 

The GUARDFILE is examined by the MCP whenever a file or data base, 
secured by the GUARDFILE, is opened. Thus only those that have been 
entered into the file will be granted access; all others will be denied 
access to the file. 



SYSTEM/RLTABLEGEN 

This utility program gives the installation management the ability to 
define to the system any non-standard tape labels. This is done so they 
can be handled automatically by the MCP's label recognition procedure 
(READALABEL). 

The utility is given a description of the desired non-standard labels. With 
these descriptions, the program will build tables for each label. Then the 
program will bind these tables to the MCP. With this new MCP, tapes 
with these installation defined labels may be used in the same manner as 
tapes with standard label formats. 

SYSTEM/PATCH 

This utility program is used to merge one or more patch decks into a 
single patch deck which can be used for the primary input file of a 
compiler. The program merges all input records by sequence numbers in 
the order received by the utility. If duplicate sequence numbers are 
received, the last one received will be the active record. 
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Unit 6: Additional Utilities 



PRACTICE EXERCISE 



Match the system utility name with its correct description given below. 



.1. SYSTEM/DUMPANALYZER A. Allows for "snapshots" of the operation 

of a data communication subsystem. 



2. SYSTEM/PATCH 



B. Used to describe the types of non- 
standard tape labels being used on the 
systems. 



3. SYSTEM/RLTABLEGEN 



C. Used to do a bit by bit comparison of 
two files. 



4. SYSTEM/DCSTATUS 



D. Used to set up and control the security 
file to be applied to a system. 



5. SYSTEM/COMPARE E. Used for controlled access to files, by 

rtefininor wjhn m»u hnv*» noopss tn whnt 
—»...... .g ...._ ...—_, . — _ — .- 

and how. 



6. SYSTEM/MAKEUSER 



F. Used after a memory dump has occurred 
in order to help find the cause. 



7. SYSTEM/GUARDFILE 



G. Used to merge multiple patch files into 
a single patch file. 
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LAB 



Through the use of ODT commands. CANDE commands, or WFL jobs complete the 
followmg task using SYSTEM/BACKUP, SYSTEM/DUMP ALL, SYSTEM/FILEDATA 
SYSTEM/FILECOPY, or SYSTEM/LOGANALYZER. 



1. SYSTEM/BACKUP: Through the ODT, CANDE terminal, or a WFL job: 

A. Run OP/PRINT/PRACTICE, but store the printer backup 

files under a BDNAME in your directory {INITIALS/ ). 



B. Use SYSTEM/BACKUP to print your file. 

SYSTEM/DUMPALL: Run SYSTEM/DUMPALL through WFL. 
the ODT. or a CANDE terminaKlNTERACTIVELY) to 
accomplish each of the following. 

A. Starting with the third record in the file, list 

OP/PROG/3/DATA in hex and alpha. 



Copy OP/PROG/3/DATA to <YOUR INrnALS>/PR0G/3/DATA, 
with a new record size of 15 words and a new block 
size of 30 words. 



C. Verify (via DUMPALL, FILEDATA, OR CANDE LFILES) that 

the above file was copied with the proper attributes. 



Concatenate the files OP/JOB/1/A and OP/JOB/1/B 
in a new file called <YOUR INITIALS>/J0B/1. 



3. SYSTEM/FILEDATA; Through the ODT or a WFL job. print 
a listing of the creation data and last access date of a 

all files under your directory in the lab usercode. 
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UTILITIES LAB (continued) 

SYSTEM/FILECOPY: Write a WFL job to run FILECOPY as follows: 

A. Copy to a tape all files created under the lab usercode 
on the lab family since Monday of last week. 

B. Store the WFL job created as LAB/<YOUR INITIALS>/FILECOPY. 



Do not allow FILECOPY to initiate the job, so that you can edit 
the job before you start it yourself. 



Use CANDE or DUMPALL to study the job created. You 
may start the job if you have a scratch tape 
available for output. 



5. LOGANALYZER: Through the ODT or a CANDE terminal, 

run SYSTEM/LOGANALYZER against the current SYSTEM/SUMLOG 
to print (or display) all the DSs and PRIORITY changes 
entered by the operator. 
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A SERffiS AND B 5/6/7000 WORKFLOW AND UTILITIES 

APPENDIX A 

WORKFLOW LAB PROJECT 1 

PURPOSE: 

To write and debug a WFL job using the run statement, embedded data, 
parameters, and the DUMPALL utility. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD = ^ 

(3) FAMILY DISK = OTHERWISE . 

(4) Name your CANDE work file as follows: 

TESTWFL/<Y0URNAME>/LAB1 

(5) Set the DESTNAME attribute to the appropriate setting. 

DIRECTIONS: 

(1) Using CANDE, create a file of type JOB. If you forget to use type 

JOB, CANDE will default to type SEQDATA, and you will be unable to 
start the WFL. 

(2) The purpose of this lab is to run SYSTEM/DUMPALL passing it the 

parameter "CARD". DUMPALL will expect input batch commands to be 
entered via the FILE CARD. 

(3) The DUMPALL commands that this lab requires are COPY, LIST, LAN, 

and CAT. 

A. COPY FROM TESTWFL/<Y0URNAME>/LAB1 RECORDS 1,4,7-10, 
AND 11, creating the file 
TESTWFL/<Y0URNAME>/LAB1/DATA1. 

B Also, COPY from TESTWFL/<Y0URNAME>/LAB1 RECORDS 1-5,7 
and 10, creating the file TESTWFL/<Y0URNAME>/LAB1/DATA2. 

C. List file.TESTWFL/<YOURNAME>/LABl/DATAl in EBCDIC. 

D. List file TESTWFL/<Y0URNAME>/LAB1/DATA2 in ALPHA, and 
NUMERIC format. 

E. Concatenate TESTWFL/<Y0URNAME>/LAB1/DATA1 and 
TESTWFL/<Y0URNAME>/LAB1/DATA2 creating a new file with a 
different BLOCKSIZE titled TESTWFL/<Y0URNAME>/LAB1/DATA3. 

F. List the resulting file in STEP E in EBCDIC format. 
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APPENDIX A 

WORKFLOW LAB PROJECT 2 

PURPOSE: 

To write and debug a WFL job using compilers and task variables. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD = 

(3) FAMILY DISK = OTHERWISE • 

(4) Name your CANDE work file as follows: 

TESTWFL/<Y0URNAME>/LAB2 

(5) Set the DESTNAME attribute to the appropriate setting. 

DIRECTIONS: 

(1) Using CANDE, get the source files CLASS/PROGANEW and 

CLASS/PROGBNEW that exist on DISK as PROGANEW/<YOURNAME> 
and PROGBNEW/<YOURNAME>, respectively. 

(2) Patch and compile the COBOL source PROGANEW/<YOURNAME> as 

follows: 

A. Name the object file ••OBJECT/PROGA/<YOURNAME>" and 
store it in your library for possible subsequent executions. 

B. As embedded data, include the patch below in your WFL job: 

COL: 1 8 12 16 27 

000070 77 Z COMP-4 VALUE 4. 

C. Create a new COBOL source disk file called 
NEWAA/<YOURNAME>. 

D. Obtain a hardcopy printout and verify that the patch has been 
inserted correctly. 
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APPENDIX A 



DIRECTIONS: (continued) 



(3) Patch and compile the ALGOL source file "PROGBNEW/<YOURNAME>" 
as follows: 

A. Name the object file "OBJECT/PROGB/<YOURNAME>" and store it 
in your library for possible subsequent executions. 

B. Create a disk file thru CANDE called PATCHFILE/<YOURNAME> 
with the following record stored in: (REBilEMBER TO MAKE THIS 
PATCHFILE TYPE ALGOL) 

/-ir\i . ^ 

\^^^Ll. J. 

00001400 FOR I:= 1 STEP 1 UNTIL 35 DO 

C. Create a new source disk file called NEWBB/<YOURNAME>. 

D. Obtain a hardcopy printout and verify that the patch has been 
inserted correctly. 



If PROGANEW fails to compile, run the ALGOL object file 
"0BJECT/CLASS/PRINTB2". 



If PROGBNEW fails to compile, display an appropriate message. 
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APPENDIX A 

WORKFLOW LAB PROJECT 3 



PURPOSE: 



To use library maintenance routines and gain more experience in compiling 
programs and using IF statements. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD = 

(3) FAMILY DISK = OTHERWISE • 

(4) Name your CANDE work file as follows: 

TESTWFL/<Y0URNAME>/LAB3 

(5) Set the DESTNAME attribute to tiie appropriate setting. 

DIRECTIONS: 

(1) Simultaneously copy the ALGOL files CLASS/SQRT AND CLASS/PRINTA 

as CLASS/SQRT/<YOURNAME> and CLASS/PRINTA/<YOURNAME>, 
respectively. These files reside on the pack "EDUCATION" and will be 
copied to the pack "EDUCATION". 

(2) Compile CLASS/SQRT/<YOURNAME> to the library. Call your object 

file "OBJECT/CLASS/SQRT/<YOURNAME>. Create a new source file 
called NEW/CLASS/SQRT/<YOURNAME>. Include the following patch 
for your source file in your WFL iod. iius y<x\.\:n wm uc jOur pn...a. ^ 
input file. 

3000 $SET LIST MERGE NEW 

3100 INTEGER I; ' 

/ 00000250 

Your secondary source file is the file you copied in STEP 1. 
Obtain a hardcopy printout also. 

* NOTE-YOU DONT WANT TO COMPILE CLASS/SQRT/<YOURNAME> 
UNTIL THE FILE HAS BEEN COPIED INTO YOUR UBRARY (STEP 1). 



A-5 



A SERIES AND B 5/6/7000 WORKFLOW AND UTILITIES 
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DIRECTIONS: (continued) 

(3) If CLASS/SQRT/<YOURNAME> didn't compile successfully, then abort 
the job. If CLASS/SQRT/<YOURNAME> did compile successfully, do the 
following: 

(A) Display an appropriate message. Run the file 
"OBJECT/CLASS/SQRT/<YOURNAME>". Use the STATION 
attribute to get the results of the execution of this program on 
your terminal. During execution of this program, the terminal 
operator will supply integer values to the program. When you 
have entered all of your values in (ENTER A VALUE AND XMIT), 
key in ?END. 

(B) Compile the ALGOL program CLASS/PRiNTA/<YOURNAME> to 

your library. (THE PRIMARY INPUT FILE IS YOUR SOURCE 
FILE CLASS/PRINTA/<YOURNAME>.) Name your object file 
"OBJECT/CLASS/PRINTA/<YOURNAME>". 

(C) If CLASS/PRINTA/<YOURNAME> compiled successfully, run the 
file "OBJECT/CLASS/PRINTA/<YOURNAME>". If the object 
doesn't complete successfully, run OBJECT/CLASS/SUMVALUE. 
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APPENDIX A 

WORKFLOW LAB PROJECT 4 

PURPOSE: 

To write and debug a WFL job using strings as parameters to the job. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD - . 

(3) FAMILY DISK = OTHERWISE • 

(4) Name your CANDE work file as follows: 

TESTWFL/<Y0URNAME>/LAB4 

(5) Set the DESTNAME attribute to the appropriate setting. 

DIRECTIONS: PART ONE 

(1) Write a WFL job that will compile any source program disk file creating 

an ob'ect file with the word "OBJECT" appended to the source file 
name. 

(2) Pass only the source file name as a parameter to the job. (HINT): 

tSs compile deck will require the use of a global file, mterrogation of 
the file attribute FILEKIND, and string functions. 

(3) To test your WFL, start this job, passing the ALGOL source file name 

"CLASsJpRINTB" as the above mentioned source file name. You might 
want to display a message if the source compiles successfully. 

DIRECTIONS: PART TWO 

Name your CANDE work file as follows: 

TESTWFL/<Y0URNAME>/LAB4A 

(1) Part two is a simple extension to the compile deck created from the 
directions above. The purpose is to give you practice constructing a 
stbroutTne Convert TESTWFL/<Y0URNAME>/LAB4 into a subroutine, which 
can be Tnvoked from the main body of the job. Pass a second parameter to 
Z sub outine which will be used as the task variable for the compile. 
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APPENDIX A 

WORKFLOW LAB PROJECT 5 

PURPOSE: 

To write a series of subroutines which will give you practice in running the 
utilities SYSTEM/FILEDATA, SYSTEM/LOGANALYZER. AND SYSTEM/BACKUP. 
You will get additional practice in interrogating file and task attributes, 
and with string concatenation. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD = 

(3) FAMILY DISK = OTHERWISE • 

(4) Name your CANDE workfile as follows: 

TESTWFL/<Y0URNAME>/LAB5 

(5) Set the DESTNAME attribute to the appropriate setting. 

DIRECTIONS: 

(1) Using CANDE get TESTWFL/<Y0URNAME>/LAB3 as 

TESTWFL/<Y0URNAME>/LAB5. 

(2) Using CANDE,. insert the compile subroutine from LAB4A in the 

declaration section. 

(3) Have all compiles in the WFL invoke the compile subroutine. 

*** NOTE *** 

Instead of compiling CLASS/SQRT/<YOURNAME> use 
NEW/CLASS/SQRT/<YOURNAME> which will enable you to compile 
using a single source. 

(4) Write a subroutine named FYLEDATA that will receive one string 

parameter containing the name of a file. Generate a FILEDATA 
attributes report containing the following information: FILEKIND, 
BLOCKSIZE, RECORDSIZE, CREATION DATE, AND SECURITY. 



NOTE 



*** 



This subroutine should be invoked every time you have a successful 
compile. 
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APPENDIX A 

DIRECTIONS: (continued) 

(5) Write a subroutine named LOGIT that will receive one task parameter. 
Generate a LOGANALYZER task report by extracting the task number 
from the parameter. 

••• NOTE •♦* 

This subroutine should be invoked if a compilation terminates 
abnormally, or if the program OBJECT/NEW/CLASS/SQRT/<Y.N> 
terminates abnormally. To test the subroutine, terminate 
OBJECT/NEW/CLASS/SQRT/<Y.N.> by entering ?<MIX NUMBER>DS, 
instead of ?END 

This subroutine should display one message containing the following 
information: 

- CURRENT SYSTEM TIME 

- TASK NUMBER 

- TASK NAME 

- HISTORY TYPE 

- HISTORYCAUSE 

(6) Generate all printer backup under the directory beginning with your 
name. Print out any listings at the end of the job using SYSTEM BACKUP 
and double spacing the output. 
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APPENDIX A 

WORKFLOW LAB PROJECT 6 



PURPOSE: 



To write a WFL job to check taskvalues that were set in a program and to 
pass values to another program. This lab will give you some mdication as to 
WFL's capability to communicate with a program. 

GENERAL NOTES: 

(1) Cause all system messages to be displayed on your terminal. 

(2) USERCODE = PASSWORD = ^ 

(3) FAMILY DISK = OTHERWISE _ • 

(4) Name your CANDE workfile as follows: 

TESTWFL/<Y0URNAME>/LAB6 

(5) Set the DESTNAME attribute to the appropriate setting. 

DIRECTIONS: 

Write a WFL job to run the object file "OBJECT/CLASS/SET/TASKVALUE". 
In this program, taskvalues are set. The taskvalues set are 1 or 2. 
depending on program logic. You are to check these values m your WFL ]ob 
and perform the following steps: 

(1) If the taskvalue = 1, run the object file "OBJEeT/CLASS/PRINTB'' 
passing it a value of 3. Use the display statement to indicate that you 
successfully completed the execution of this program. Use the 
SOURCESTATION attribute to get your results of the execution ol 
"OBJECT/CLASS/PRINTB" to your station. 

(2) If the taskvalue = 2. then display a message indicating that the 
taskvalue = 2 at this point. 

**» NOTE *** 

If you look at the program that set the taskvalue, you will notice 
that the action taken for a taskvalue of 2 will not occur However, 
depending on program logic, we could have fired off another 
program, or done something else at that point. 
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